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1.  INTRODUCTION 


REPSIL*  is  a FORTRAN  IV  computer  program  developed  at  the  BRL  to 
treat  the  large  transient  deformations  of  anelastic  shells  under  blast 
loadings.  The  program  uses  the  finite  difference  technique  to  solve  the 
equations  governing  the  motion  of  thin  Kirchhoff  shells  of  negligible 
rotational  inertia.  These  equations  are  derived  in  a recent  BRL  report 
[1]**.  That  report,  which  also  treats  more  general  Kirchhoff  shells, 
constitutes  the  theoretical  documentation  for  REPSIL.  The  present 
report  is  a companion  user's  manual. 

The  equations  on  which  REPSIL  is  based  impose  certain  restrictions 
on  the  types  of  shells  and  deformations  that  can  be  treated.  As  already 
mentioned,  only  thin  Kirchhoff  shells  of  negligible  rotational  inertia 
can  be  treated.  Moreover,  es  presently  formulated,  the  program  can  only 
handle  shells  of  uniform  thickness  having  no  cutouts,  stiffeners,  or 
bifurcations.  On  the  other  hand,  the  formulation  does  treat  the  geometric 
nonlinearities  due  to  large  displacements  exactly. 

Within  the  limits  of  the  above  geometric  restrictions,  REPSIL  can 
accept  a wide  variety  of  initial  shell  geometries.  This  is  made  possible 
by  the  finite  different  formulation  being  coded  independent  of  any 
particular  initial  geometry.  Hence,  accommodating  any  initial  geometry 
simply  entails  programming  it  into  the  initial  geometry  subroutine 
according  to  the  instructions  contained  in  Chapter  6.  The  current 
version  of  REPSIL  comes  with  initial  geometry  subroutines  for  the 
rectangular  plate,  the  cylindrical  shell  and  the  conical  shell;  Section 
2.3  contains  instructions  for  their  use. 

The  program  also  can  accept  arbitrary  distributions  over  the  shell 
surface  of  initial  impulse  velocities  and  time  varying  pressures.  The 
minor  programming  necessary  to  specify  such  distributions  is  described 
in  Chapter  6.  Presently,  initial  velocities  at  mesh  points  and  over 
rectangular  regions  of  the  shell  surface  can  be  specified  on  input 
cards  without  need  of  programming,  as  detailed  in  Section  3.2. 

REPSIL  can  simulate  a i; umber  of  boundary  conditions  along  the  four 
edges  bounding  the  shell.  Three  edges  can  have  any  combination  of 
clamped  or  hinged  boundary  conditions.  The  remaining  edge  and  two  of 
the  previous  edges  can  be  edges  constrained  to  move  in  symmetry  planes 
of  the  problem.  The  boundary  conditions  are  described  in  detail  in 
Section  3.2,  where  the  procedure  for  selecting  them  is  given. 


* Response  of  Elastic-Plastic  Shells  to  Impulsive  Loadings 

**  Numbers  in  brackets  correspond  to  the  list  of  references  on  page 
126. 


Prectdiiig  page  blink 
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REPSIL  can  model  a variety  of  anelastlc  material  responses,  although 
the  present  version  Is  limited  to  isotropic  materials.  Within  that  limit- 
ation, the  response  can  be  either  completely  elastic  or  elastoplastic. 

In  the  elastic  range  the  behavior  is  linear.  The  plastic  response  can 
be  perfect  or  strain  hardening  and  in  either  case  it  '-an  be  made  strain 
rate  dependent.  Section  3.2  gives  the  procedure  for  eliciting  these 
material  properties. 

A useful  feature  of  the  code  is  the  automatic  determination  of  an 
optimum,  stable  time  increment.  REPSIL  uses  an  explicit  finite  difference 
approximation  to  the  equations  of  motion;  as  is  well  known,  such  explicit 
schemes  are  subject  to  numerical  instability  unless  the  size  of  the  time 
increment  is  limited  to  some  maximum  increment.  The  REPSIL  program 
initially  computes  such  a maximum  increment  based  on  criteria  given  in 
Section  2.2  and  then  uses  this  increment  or  the  increment  specified 
by  the  initial  data  (see  Section  3.2),  whichever  is  smaller,  for  the 
(constant)  time  increment  used  to  generate  the  solution.  Hence,  a 
stable  solution  is  guaranteed. 

The  program  is  provided  with  a damping  option  that  permits  the  rapid 
attainment  of  final  deformed  configurations  by  numerically  damping  out 
the  motion  of  the  shell.  Damping  is  mainly  achieved  through  the  artifice 
of  automatically  annihilating  the  kinetic  energy  whenever  it  reaches 
a local  maximum.  Details  on  this  procedure  are  given  in  Section  2.4, 
while  instructions  for  executing  the  option  are  in  Section  3.2. 

REPSIL  comes  equipped  with  a number  of  print  options  for  outputting 
results  of  the  calculations  at  regular  intervals.  Printed  out  are  such 
local  measures  of  the  deformation  as  the  displacements  and  surface  strains, 
and  such  global  measures  as  the  kinetic  energy,  strain  energy  and  plastic 
work.  There  is  also  a companion  plotting  program  that  at  regular  intervals 
draws  isometric  and  cross-sectional  views  of  the  deforming  shell  and  that 
graphs  time  histories  of  the  printed  measures  of  deformations  just 
mentioned.  The  output  options  are  described  in  Chapter  4 and  illustrated 
by  example  problems  in  Chapter  5.  Appendix  D contains  a description  and 
a listing  of  the  plotting  program. 

This  report  is  organized  as  follows:  Chapter  2 presents  the  as- 
sumptions and  equations  of  the  REPSIL  formulation  and  outlines  the 
computational  algorithm  used  to  solve  the  equations;  Chapter  3 describes 
the  input  data,  shows  how  to  initiate  and  continue  a problem  and  select 
the  various  options,  and  gives  rules -of- thumb  for  estimating  the  memory 
and  machine  time  requirements  for  a problem;  Chapter  4 describes  the 
various  output  data  generated  by  REPSIL  and  the  formats  in  which  they 
are  printed;  Chapter  5 gives  two  example  problems,  describing  how  they 
are  set  up  and  the  kind  of  output  data  generated;  Chapter  6 gives 
instructions  for  programming  arbitrary  loadings  and  initial  geometries. 
Chapter  3,  4 and  5 contain  the  necessary  information  to  run  the  program 
as  listed  in  Appendix  E,  with  the  associated  loading  and  initial  geometry 
subroutines.  A user  desiring  to  model  other  loadings  or  initial  geometries 
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should  read  Chapter  6 for  programing  instructions.  Such  a user  would 
find  a reading  of  Chapter  2 useful  as  background.  On  the  other  hand, 
the  analyst  or  programer  who  intends  to  make  extensive  changes  in  the 
formulation  or  numerics  of  the  program  would  do  well  to  thoroughly 
study  Chapter  2 before  proceeding  to  the  study  of  Appendix  E with  the 
aid  of  Appendix  C,  the  list  of  program  variables. 


2,  DESCRIPTION  OF  PROGRAM 
2,1  Synopsis  of  Program 

REPSIL  treats  the  transient  deformation  of  shells  by  approximating 
the  initial  value  problem  with  an  explicit  nonlinear  finite  difference 
scheme.  The  finite  difference  equations  are  solved  at  eacu  time  increment 
to  update  the  deformation  variables.  This  procedure  is  repeated 
cyclically  in  order  to  generate  the  time  history  of  the  deformation. 

This  chapter  presents  the  equations  of  the  REPSIL  formulation  and 
describes  the  computational  algorithm  by  which  REPSIL  solves  them. 

The  formulation  is  based  on  equations  that  use  a material  or 
Lagrangian  description:  the  dependent  variables  of  the  theory  aro 

functions  of  n°  *,  the  material  coordinates  of  the  middle  surface  of 
the  shell;  moreover  variables  defined  outside  the  middle  surface  also 
depend  upon  ;,  the  normal  distance  from  the  middle  surface  **.  All 
variables  are  functions  of  t,  the  time. 

Some  comments  on  the  physical  significance  of  the  material  coordinates 
of  the  middle  surface  are  in  order.  For  simple  initial  geometries,  the 
middle  surface  material  coordinates  often  have  significance  as  distances, 
arc  lengths,  or  angles  ***;  however,  this  need  not  be  the  case,  not  even 
for  simple  geometries.  It  is  better  to  regard  the  material  coordinates 
abstractly  as  a pair  of  parameters  defining  the  position  of  the  middle 
surface  in  space.  In  other  words,  the  material  coordinates  serve  as 
parameters  for  the  parametric  representation  of  the  middle  surface  in 

space.  That  the  parameters  na  are  also  material  coordinates  simply 
means  that  as  the  image  of  the  middle  surface  changes  in  space  as  a 

function  of  time,  the  pair  of  values  na  associated  with  a given  material 
particle  on  the  middle  surface  does  not  change,  but  remains  fixed. 


* Index  notation  is  used,  with  Greek  indices  ranging  over  the  integers 

j 9 

1 and  2;  hence,  n = n « n 

**  The  concept  of  material  coordinates  for  a shell  is  defined  more 
precisely  in  [1], 

***  For  example,  see  the  cases  of  the  flat  plate,  cylindrical  shell 
and  conical  shell  in  Section  3.2. 
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The  finite  difference  scheme  is  obtained  by  making  the  dependent 

1 2 

variables  of  the  theory  discrete  functions  of  n » n , t»  t.  Discretizing 

the  dependence  on  makes  the  dependent  variables  functions  of  the 
intersection  points  of  the  two  dimensional  rectangular  mesh  resulting 

from  the  division  of  the  domain  of  n°  into  increments  (see  Figure  3.1 
and  6.1);  more  precisely,  the  variables  become  functions  of  tho  mesh 
number  pair  (m,n) , the  integer  pair  corresponding  to  the  mesh  intersection 

whose  coordinates  na  satisfy  the  relations 

n*  ■ m An1  ♦ . n2  ■ n An2  + nQ2  , (2.1) 

with  An°  constant  increments  of  the  coordinates  and  n a the  coordinates 
of  a conveniently  chosen  origin. 

The  dependence  cn  ; is  made  discrete  by  conceptually  dividing  the 
shell  into  K layer  of  equal  thickness.  Within  each  la^er  those 
variables  defined  outside  the  middle  surface  are  assumed  constant  with 
respect  to  Numbering  each  layer  in  sequence,  k • 1,  •••K,  the 
variables  become  functions  of  the  layer  number  k,  as  well  as  functions 
of  (m,n).  When  needed,  the  value  of  c in  each  layer  is  taken  to  be 
its  mid-layer  value: 

C • (k  : k ■ 1 , • • *K,  (2.2) 

where  h is  the  thickness  of  the  shell. 

The  principal  reason  for  making  the  dependence  on  c discrete  is  in 
order  to  model  the  variations  of  the  stresses  through  the  thickness.  For, 
while  the  functional  form  of  the  impendence  of  the  strains  on  t is 
prescribed  by  the  Kirchhoff  hypothesis  *,  no  such  simplification  is 
possible  for  the  stresses.  Plasticity  makes  the  a fvCLo>U  determination 
of  the  dependence  of  the  stresses  on  t not  feasible. 

Strain  hardening  behavior  is  modelled  using  the  "mechanical  sublayer 
model"  **:  the  stress  tensor  at  a point  is  assummed  to  be  a weighted  sum 
of  J "sublayer"  stress  tensors  or,  more  simply,  J "substress"  tensors, 
with  each  sublayer  obeying  the  same  linear  incremental  stress-strain 
relation,  but  having  different  yield  stresses.  Using  this  model,  there 
will  be  K stress  tensor  values  at  each  mesh  point  (m,n)  and  JxK  substress 
tensor  values. 


* Cf  equation  (2.15)  of  this  report. 

**  This  method  of  modelling  strain  hardening  behavior  has  been  developed 
and  extensively  used  at  the  Aeroelastic  and  Structure  Research  Lab. 
of  MIT.  A detailed  description  of  the  method  is  given  in  [2;  Sect. 
5.4.2], 
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The  dependence  on  t,  the  time,  is  made  discrete  by  replacing  time 
derivatives  by  equivalent  finite  difference  operators.  As  already 
mentioned,  an  explicit  finite  difference  scheme  results.  The  scheme 
characterizes  the  change  undergone  'ey  the  dependent  variables  during  a 
time  interval  At.  A constant  time  interval  is  used,  which  is  automati- 
cally determined  by  the  program  to  assure  numerical  stability. 

The  basic  function  of  the  finite  difference  scheme  is  to  advance 
the  values  of  the  following  fundamental  variables. 

i * 

• y (m,n)  , the  Cartesian  coordinates  of  the  middle  surface  at 
mesh  point  (m,n) ; 

• n*(m,n),  the  Cartesian  components  of  the  unit  normal  to  the 
middle  surface  at  mesh  point  (m,n); 

• Au  (m  n) , the  Cartesian  components  of  the  displacement  increment 
undergone  by  the  middle  surface  at  mesh  point  (m,n)  during  the 
ti^e  interval  Ac; 

•o  p(m.n,k),  the  contravariant  components  of  the  stress  tensor 
(or,  in  the  case  of  strain  hardening,  the  suhstress  tensor j 
tangential  to  the  middle  surfact  at  mesh  point  (m,n)  at  layer 
(or  sublayer)  station  k. 

The  dependence  of  the  variables  on  (m,n)  or  (m,n,k)  is  indicated  explicitly 
to  emphasis''  that  their  values  are  stored  as  2-  and  3-dimensional  arrays 
in  the  program.  From  chese  fundamental  variables  all  the  other  dependent 
variable*  of  the  theory  ere  determined. 

For  the  sake  of  clarify,  the  description  of  the  coirputationcl 
algorithm  used  by  REPSIL  ii  separated  into  four  groups  of  calculations: 

• Initialization  calculations, 

• Finite  di.Cferonce  calculations, 

• Energy  calculations, 

« Surface  strains  calculations. 

Within  each  group  the  description  is  organized  by  units  of  calculations. 
Units  can  occur  within  the  main  program  or  as  subroutines.  In  the  latter 
case,  the  subroutine  description,  which  follows  the  subroutine  name,  is 
indented.  When  a subroutine  occurs  within  a subroutine,  the  description 


•Latin  indices  indicate  Cartesian  components  in  Euclidean  3-space  and 
range  over  the  integers  1,  2,  and  3. 
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of  the  embedded  subroutine  is  further  indented.  All  subroutine  names 
ere  completely  cspitslixed. 

2,2  Initialisation  Calculations 

The  initialisation  calculations  determine  the  program  constants 
and  the  initial  values  of  the  dependent  variables  from  the  input  data. 
The  flow  chart  in  Figure  2.1  summarises  the  calculations,  whtse  de* 
scription  follows. 

START  Figure  2.2  outlines  this  subroutine.  The  input  data,  including 
material  properties,  is  read  into  storage  and  program  constants 
are  calculated.  The  minimum  and  maximum  values  of  the  mesh 
numbers  are  determined  from  the  boundary  conditions.  Subroutine 
INGEQM  is  called  within  this  subroutine. 

INGEOM  This  subroutine  generates  the  initial  geometry  of  the 
shell.  First,  the  dimensions  characterising  the  part- 
icular geometry  bei.  „ treated  are  read  off  the  input 

cards.  Next,  the  finite  difference  increments  An  are 
calculated.  Finally,  the  subroutine  computs  the  initial 

Cartesian  coordinates  y*(m,n)  of  the  middle  surface  and 
stores  the  resulting  arrays.  The  user  not  finding  a 
suitable  geometry  among  those  described  in  Section  3.2 
(flat  plate,  cylinder  or  cone) is  referred  to  Section 
6.4  for  instructions  on  programming  initial  geometries. 


Returning  to  START,  the  program  calculates  the  interpolation 
coeffienents  at  locations  where  STRAIN  * computes  the  surface 
strains  and  the  mesh  number  of  the  mesh  point  bracketing  these 
locations.  Next,  a stable  time  interval  At  is  found  from  the 
criteria 
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♦ 


2 


/ 


P(l-v2) 


(2.3) 
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1 
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SCAn^n2 
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These  criteria  result  from  a von  Neumann  stability  analysis  of 
an  elastic  flat  plate  **;  At^  is  the  maximum  stable  interval 

for  membrane  motion  and  Atg  for  bending  motion.  The  program 


* Subroutine  STRAIN  is  described  in  Section  2.5. 

**  A report  describing  this  analysis  is  being  prepared. 
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selects  for  use  in  the  finite  difference  calculations  the 
minimum  of  At^,  Atg  and  the  At  prescribed  in  the  input  data. 

The  subroutine  ends  with  the  calculation  of  the  remaining 
program  constants,  most  of  which  require  for  their  determination 
the  values  of  An®  computed  in  INGEOM. 

The  main  program  next  determines  whether  the  problem  being  solved 
is  a new  one,  starting  from  an  initial  (stress-free)  configuration  at 
timo  tQ  » 0 or  a continuation  of  a problem  whose  solution  up  to  some 

rime  tt>  0 has  already  been  calculated,  called  a restart  problem  or, 

simply,  a restart.  If  it  is  a restart,  subroutine  WRTAPE  is  called  in 
order  to  read  data  off  the  restart  tape,  after  which  subroutine  PDATA 
is  called  and  the  initialization  calculations  end  (see  Figure  2.1). 

WRTAPE  Depending  on  the  instructions  of  the  main  program,  this  sub- 
routine either  reads  off  or  writes  on  a tape,  the  restart 

tape,  the  values  of  the  fundamental  variables  y*,  n" , Au~  and 

rs  A 

o , the  surface  strains  and  the  energy  variables  at  time  step 
prescribed  by  the  initial  data.  This  information  is  sufficient 
to  permit  the  program  to  continue  the  solution  of  the  problem 
from  any  of  the  prescribed  time  steps.  During  the  initialization 
portion  of  the  program  this  subroutine  reads  this  information 
off  the  tape  and  during  the  finite  difference  portion  it  stores 
the  information. 

PDATA  This  subroutine  stores  on  a tape,  the  plotting  tape,  the  data 

required  by  the  REPSIl  plotting  program.  A description  of  theso 
data  are  given  in  Section  4.2.  Appendix  D describes  and  lists 
the  plotting  program. 

If,  on  the  ocher  hand,  the  program  is  tr  *ing  a new  problem,  WRTAPE  is 
not  colled  at  all  and  PDATA  is  not  call  mtil  later  (see  Figure  2.1). 
Rather,  for  a new  problem  the  program  j aeds  to  generate  the  infor- 
mation otherwise  obtained  from  WRTAPE. 

As  discussed  in  Section  3.2,  the  program  treats  symmetric  defor- 
mations about  one  or  two  planes.  For  such  deformations,  the  shell 

variables,  in  particular  the  middle  surface  coordinates  y*,  are 
symmetrically  distributed  about  symmetry  planes.  The  program  imposes 
this  condition  numerically  by  relating  the  coordinates  one  mesh  spacing 
outside  the  symmetry  edge  to  the  coordinates  one  mesh  spacing  inside 

2 3 

the  edge.  Typically,  for  the  symmetry  plane  located  in  the  y4-,  y 
coordinate  plane  and  intersecting  the  middle  surface  along  the  curve 
with  mesh  number  m (see  Figures  3.6  - 3.8  where  m = 2)  these  relations 
are 


for  ail  allowable  n. 


y (m-l,n)  =»  -y  (m+l,n) 


y (m-l,n)  - y (m+l,n) 


y (m-l,n)  - y (m+l,n) 


y (m,n) 


0, 


(2.4) 


The  initial  time  tQ,  kinetic  energy  T,  strain  energy  V>  damping 

wcrk  W and  external  work  W are  next  set  equal  to  zero.  This  is 
u * 

followed  oy  the  arrays  for  the  displacement  increments  Au  , the  pressure 

P,  the  tangentral  strain  components  and  the  tangential  stress 

components  all  being  cleared  to  zero.  If  pressure  loads  are  acting  on 
the  shell,  the  initial  pressure  distribution  is  obtained  from  subroutine 
PRESS,  whose  description  is  postponed  until  Section  2.3.  If  no  pressure 
loads  are  acting,  the  program  skips  PRESS  and  goes  directly  to  DGEOM. 

DGEOM  is  described  in  Section  2.3,  where  it  is  shown  that  at  this  point  in 

the  program  it  is  called  in  order  to  calculate  the  normal  n1,  the 

2 u 

augmented  pressure  P*,  the  time  constant  At  /(aQ  T0)  am  the  initial 

Next  the  program  goes  to  STRAIN  where 

are  interpolated  to  give  the  metric  tensor  G^ 

on  the  bounding  'Ui-faces  of  the  shell;  the  details  of  this  calculation 
are  given  in  Section  2.5. 


values  of  the  tensor  and  bag* 

the  values  of  a r and  b „ 
off.  *8 


The  remainder  of  the' initialization  calculations  are  concerned  with 

obtaining  the  initial  values  of  the  displacement  increment  arrays  Aux(m,n) 
and  the  associated  values  of  the  kinetic  energy  T and  external  work  W. 

The  initial  displacement  increments  can  arise  in  three  ways:  (1)  from  an 
initial  inpulse  velocity  distribution;  -(2)  from  an  initial  pressure 
distribution  or  (3)  from  a combination  of  both.  Should  they  be  due  to 
an  initial  velocity  distribution  or  combination,  tho  program  calls  INVEL. 

INVEt  This  subroutine  determines  the  magnitude  of  the  initial  velocity 

v at  each  mesh  point  and  multiplies  this  oy  the  normal  n^tm,n) 

! to  give  the  initial  velocity  distribution: 


vx(m,n)  = v n1 (m,n) . 


(2.S) 


The  initial  velocity  magnitudes  can  either  be  tj ad  off  input 
data  cards,  as  shown  in  Section  3.2,  or  the  user  can  program 
an  analytical  expression  for  these  magnitudes,  as  shown  in 
Section  6.2. 

28 


i,  ’ll  I *-i  li  t 1 ‘ 


The  program  then  calculates  the  displacement  increments  due  to  the 
initial  velocity  distribution 


Au^m.n)  ■ v1(m,n)  At 


(2.6) 


and  proceeds  to  subroutine  BOUNDU.  This  subroutine)  described  in  Section 
2.3,  adjusts  the  displacement  increments  one  mesh  space  in  from  clamped 
edge  boundaries  so  that  clamped  edge  conditions  are  satisfied  and  also 
generates  the  displacement  increment  one  mesh  spacing  outside  symmetry 
boundaries  from  the  values  one  mesh  spacing  inside,  using  equations 

for  Au*-  very  much  like  (2.3)  for  y* . Next  the  kinetic  energy  T 
associated  with  the  initial  displacement  increment  distribution  is 
determined  in  subroutine  KINET,  described  in  Section  2.4.  If  there  is 

no  initial  pressure  distribution,  the  displacement  increments  Au1(m,n) 

and  kinetic  energy  just  determined  are  associated  with  the  time  interval 

from  t * 0 to  t ,=  At  and  the  initialization  calculations  terminate 
o l 

with  the  calling  of  subroutine  PDATA.  On  the  other  hand,  if  the  shell 
is  also  subjected  to  an  initial  pressure  distribution,  the  displacement 

increments  Au^n^n)  and  kinetic  energy  T just  determined  are  associated 

with  the  time  interval  from  t , » - At 


-1 


to  t = 0 * and  the  external 
o 


work  due  to  the  pressure  distribution  acting  on  the  displacement  increments 
just  determined  is  computed  in  subroutine  PWORK,  described  in  Section  2,4. 
The  program  then  proceeds  to  calculate  the  displacement  increments  for 
the  time  interval  (tQ,  using  an  equation  which  is  nothing  more  than 

the  equation  of  motion  (2.3S)  with  the  stresses  set  equal  to  zero: 


Au*  = Au1  - 

T 


4t2 
O 0 


P*  n1  , 


(2.7) 


with  Au*  and  Au1  the  displacement  increments  for  the  time  intervals 

[tQ,  and  [t^,  t ],  respectively.  When  there  is  no  initial 

impulse  velocity  distribution,  but  only  a pressure  distribution  the 
program  goes  from  STRAIN  to  directly  computing  the  displacement  increments 
for  the  interval  [tQ,  tj]  using  (2.7),  with,  however,  the  displacement 


* The  reason  that  the  displacement  increments  were  previously  associated 
with  the  time  interval  ft  , t,l  rather  than  the  interval  ft  , , t 1 is 

that  with  no  pressure  acting  and  the  shell  being  stress  free  at  the 
time  tQ,  the  displacement  increments  are  the  same  for  both  intervals. 

On  the  other  hand,  a pressure  distribution  at  time  t will  cause  the 

displacement  increments  for  [tQ,  t^]  to  change  from  those  for  [t_^,  tQJ . 
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increments  for  [t^,  tQ]  set  equal  to  zero. 

Again,  the  new  Au^  are  adjusted  in  BOUNDU  to  satisfy  clamped  edge 
and  symmetry  edge  conditions  and  the  additional  external  work  resulting 
for  the  initial  pressure  distribution  acting  on  the  displacement  incre- 
ments for  the  interval  [tQ,  t^j  is  computed  in  PWORK.  Lastly,  the 

kinetic  energy  during  the  time  interval  [tQ,  t^]  is  calculated  in  KINET 

and  the  program  proceed  to  POATA  where  information  is  gathered  for  the 
plotting  program.  With  this  last  operation  the  initialization  calcu- 
lation end  and  the  program  proceeds  to  the  finite  difference  calculational 
loop. 


2.3  Finite  Difference  Calculations 


The  finite  difference  calculations  follow  the  initialization 
calculations  and  are  repeated  each  time  step.  They  solve  the  finite 
difference  equations  for  the  current  values  of  the  fundamental  variables . 
In  this  way,  the  values  of  these  variables  are  advanced  each  time  step 
and  the  history  of  the  deformation  is  generated. 

Aside  from  minor  simplifications  in  notation,  the  finite  difference 
equations  presented  in  this  section  are  identical  with  those  given  in 
[1;  Sect.  7.3].  They  are  written  in  compact  form  with  only  finite* time 
derivatives  being  shown  explicitly;  finite  differences  with  respect 

to  material  coordinates  na  are  symbolically  represented  by  their 
corresponding  partials.  At  interior  points  and  along  symmetry  bound- 
aries the  program  uses  central  difference  operators,  while  along  hinged 
and  clamped  boundaries  it  uses  forward  or  backward  difference  operator, 

all  operators  being  of  order  Unal2  accuracy  *. 

Figure  2.3  outlines  the  finite  difference  calculations.  They 
comprise  a sequence  or,  better  still,  a loop  of  calculations,  which,  as 
already  mentioned,  are  repeated  every  time  step.  The  description  of 
this  loop  begins  after  £-1  time  steps  have  elapsed,  at  the  generic 
time  t-  = (i-1)  At.  The  values  of  the  middle  surface  coordinates, 
the  normal  to  the  middle  surface  and  the  tangential  stress  or  substress 
component  are  assumed  known  at  this  time  and  are  denoted  by  appending 

subscripted  minus  signs:  y*,  n^  and  Also  the  components  of  the 

displacement  increment  for  the  next  time  interval,  from  the  time  t_= 

(£-1)  At  to  the  time  t * £At,  are  known  and  are  denoted  simply  as 

Au1.  Using  these  values  of  the  fundamental  variables,  the  finite 
difference  calculations  generate  suceeding  values  of  the  fundamental 


* Appendix  A summarizes  the  explicit  forms  of  these  operators. 
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Figure  2.3  Flow  Chart  for  Finite  Difference,  Energy  and  Surface 
Strain  Calculations 


i i i 

variable  y , n , a p and  Au*  at  the  time  t ■ £At  as  follows. 

First  the  time  is  updated: 

t - t_  + At  , (2.8) 

and  checked  against  a prescribed  maximum,  t .If  the  maximum  is 

max 

exceeded,  then  the  solution  has  progresses  to  completic*  and  calculations 
stop.  Otherwise,  the  program  checks  as  to  whether  thei  1 is  a pressure 
loading  acting  on  the  shell  at  this  tine;  if  there  is  then  the  program 
calls  subroutines  PRESS,  POSITN,  DGEOM,  STRAIN,  MOTION,  PDATA  and 
DAMP  in  that  order;  if  not,  it  skips  PRESS  and  calls  the  remainder  of 
the  sequence. 

PRESS  This  subroutine  supplies  the  values  of  pressure  at  mesh  inter- 
section points  for  the  given  time  and  stores  them  in  the  array 
P(m,n).  The  user  is  expected  to  supply  this  information  either 
by  programming  some  analytical  expression  for  the  pressure,  as 
outlined  in  Section  6.3,  or  by  generating  a tape  with  this  data 
in  numerical  form. 

POSITN  This  subroutine  simply  calculates  the  coordinates  of  the  middle 
surface  at  the  current  time  t using  the  formula 

y1  * yl  * Au1  , (2.9) 

storing  the  values  in  the  arrays  y1(m,n). 

DGEOM  This  subroutine  is  summarized  in  Figure  2.4.  It  begins  by 
calling  subroutine  GRAD. 

GRAD  This  subroutine,  using  appropriate  finite  difference 

operators,  determines  the  first  and  second  gradients  of 

y1  and  Au1  with  respect  to  the  material  coordinates  na: 


1 

u = 
a 


*4  • 

3na 

i 

" 3n“3nB  ' 

(2.10) 

3AU1 

3na 

i 32Au1  . 

U"B  ' 3„%B 

After  GRAD  the  program  stores  the  preceding  values  of  the  c. . 

ponents  of  the  normal  n*  for  later  use  in  calculating  strain 

increments.  From  the  first  and  second  gradient  of  y1,  the  program 
determines  the  differential  geometric  quantities  characterizing 
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the  current  position  of  the  middle  surface:  the  covariant  com- 
ponents of  the  metric  , the  second  fundamental  tensor 

and  the  current  normal  n*,  and  also  the  determinant  a of  the 
metric  as  follows. 


>«  yl‘  ’ a ' *U  *22  ■ (*12>' 


n1  . eIJV,  y\  / ^ . ba6  - n1 


(2.11) 


where  e^  is  the  permutation  symbol.**  Next,  the  pressure 
distribution  is  modified  for  use  in  the  equation  of  motion: 


P* 


a1*  P. 


(2.12) 


The  remainder  of  the  subroutine's  calculations  depend  on  the  time. 
Since  initially  the  shell  is  assumed  to  be  in  a stress-free  state, 
there  is  no  need  to  calculate  the  stress  field  in  DGEOM.  Rather, 
the  subroutine  determines  certain  time  constants  and  stores  these 
2 H 

for  later  use:  if /(a^  ro)  is  calculated  for  use  in  the  equations 

of  motion  and  the  expression  for  the  kinetic  energy  and  the  initial 
values  of  aag  and  bag  at  prescribed  mesh  points  are  selected  using 

subroutine  ABINIT  for  use  in  STRAIN,  as  described  in  Section  2.5. 

At  all  subsequent  times,  the  subroutine  calculates  the  stress  field 
and  other  stress  related  quantities  as  follows.  First,  the  con- 
travariant  components  aa^  of  the  metric,  the  Christoffel  symbols 
Y Ol 

and  the  mixed  components  bg  of  the  second  fundamental  tensor 
are  calculated: 


, 12  _ , 22 
&2  2'  a*  a " *” a 1 2 * 8 * a 
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y6  i i 

8 >'6  yafi 


a®6  b5$ 


(2.13) 


* We  introduce  the  summation  convention:  terms  or  products  of  terms 
having  the  same  index  appearing  twice  are  to  be  summed  over  the  range 
of  the  index.  In  the  case  of  repeated  Latin  indices  both  will  be 
superscript  since  their  basis  is  Cartesian,  while  repeated  Greek 
indices  will  always  appear  as  paired  superscript  and  subscript. 

**  That  is,  eiJk  = 1 for  i,  j,  k an  even  permutation  of  1,2,3;  = -1  for 
i,  j,  k an  odd  permutation;  = 0 for  i,  j,  k non-distinct. 
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Next  the  incremental  changes  in  a and  b . due  to  the  incremental 
. * ad  ag 

displacement  Au1  are  determined: 


An  ■ -n1  u1  , An 
a -a  * 


£^AnAtK 

1 * n^  n* 


Aa 


ad 


y u"  + >•  u-  - Uq  , 

* r*  U * ft  « QlB 


,l  ui 
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i i 

'a  u« 
p a 


(2.14) 
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These  expressions  are  exact  with  no  approximations  based  on  the 

smallness  of  Au1  being  used.  The  corresponding  increments  under- 
gone oy  the  tangential  strain  components  eag  at  the  station  c(k) 

distant  from  the  middle  surface  are  then  calculated  using  the 
qua  t ion 

Aead  * *Aa«8  " UbaB  C2‘15) 


This  equation  is  based  on  the  thin  shell  approximation  *.  Sub- 
routine STRESS  follows. 


STRESS  The  principal  function  of  this  subroutine,  outlined  in 
Figure  2.5,  is  to  calculate  the  current  stress  or  sub- 
stress component  from  their  preceding  values  and  the 
incremental  change  in  the  strain  component.  Calculations 

begin  by  evaluating  the  metric  g D and  inverse  g 

otp 

for  the  lamella  g distance  from  the  middle  surface: 
ga&  “ aa&  ' 25  ba&  * 8 = gU  g22  " *gi2^ 
g * g22/g  » g 3 2/g  * g 3 gu/g  • 


I 

(2.16) 


With  these  terms  evaluated,  the  mixed  components  of  the 
incremental  strain  and  preceding  stress  are  immediately 
obtained: 


, a ad.  a 
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(2.17) 


Next,  assuming  that  the  incremental  deformation  is  elastic, 
the  increments  in  the  stress  components  Te  calculated 
using  the  linear  isotropic  law: 


(2.18) 


ifc  (*ce * T^r  «S  *?>  • 

aH  the  case  of  strain  hardening,  A§®  are  elastic 

increments  in  the  substress  components  and  are  the 
same  for  each  layer.  These  increments  are  added  to 
the  preceding  values  to  give  the  components  of  a trial 
stress  or  substress 


qi  . Ea 

°-s  * % 


(2.19) 


The  trial  stress  is  tested  against  the  yield  function 


*,Tcu  - 3 TaTE  1 ,Tou2  2 

♦CV  “ a«°«  ‘ ~ cO  " » 


f8°a 


(2.20) 


where  oq  is  the  uniaxial  yield  stress  or,  in  the  case 


of  strain  hardening,  the  yield  substress;  for  rate 

sensitive  behavior  o is  assumed  to  depend  on  the 

0 

second  invariant  of  the  strain  rate  deviator: 

°o  * °o (static) t1  ♦ t|)  p]  • (2.21) 


with 


i * St  >!  - 5 • 


(2.22) 


If  #(0  < °»  then  the  trial  stress  is  on  or  within 

P 

the  yield  surface  and  its  components  define  acceptable 
values  for  the  current  stress  components  o®  ■ o“  . 

P P 

Hence,  the  stress  increment  is  indeed  elastic  and  the 
calculations  for  a plastic  stress  increment  are  skip- 
ped, the  program  proceeding  directly  to  (2.2tf)  below. 

fp 

On  the  other  hand,  if 4»(o q)  > o,  then  the  trial  stress 

P 

is  outside  the  yield  surface  and,  hence,  unacceptable. 
In  this  case,  the  subroutine  determines  a correction 
to  the  trial  stress  due  to  plastic  flow.  First,  the 
components  of  a corrector  stress  are  determined: 


Da 


- fl-2v)aj[  6^ 


3 (l-v)oj 


(2.23; 


The  corrector  stress  gives  the  direction  in  stress  space 

in  which  to  apply  a correction  to  in  order  to  bring 
the  resultant  stress  conponents  B 


a 


Ta 

aB 


(2.24) 


back  to  the  yield  surface,  so  that 


.Ta  ..  Da.  , 
♦ (o&  - A A Og)  * 0. 


This  gives  a quadratic  equation  in  AX 


A AX  - 2 B AX  ♦ C « 0 , 


(2.26) 


where 
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(2. 27) 
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which  the  program  solves  for  the  smallest  positive  value 
of  AX: 


2 U * 

AX  ■ B - (B  - AC)  * . 


(2.28) 


With  4A  known,  current  stress  or  substress  components 
are  determined  from  (2,24)  and  are  then  put  into  con- 
travariant  form 


aB  _ ad  8 

o * g a 


d * 


(2.29) 


* If  AX  turns  out  to  be  negative  or  complex,  then  the  subroutine  uses 
a procedure  described  in  [3;  Sect.  IV),  which  divides  the  elastic 

En 

increment  components  A0®  into  L elastic  subincreraents  and  applys  a 
correction  to  each  step  such  that  AX  is  always  positive. 
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In  the  case  of  strain  hardening,  a weighted  sun  of  the 
substress  components  of  the  layer  is  taken  to  obtain 
the  layer  stress  components  beforo  being  put  in 
contravariant  form.  The  subroutine  finishes  by 
computing  the  contribution  to  the  strain  energy  of 
the  current  stress  using  (2.39)  of  Section  2.4  and 
returning  to  DGtOM. 

Next,  the  components  of  strain  at  prescribed  locations  on 
the  bounding  surfaces  of  the  shell  are  evaluated  using  (2.55  as 
explained  in  Section  2.5.  Subroutines  RESULT  and  SYWTRY  are 
called  next. 

RESULT  This  subroutine  numerically  integrates  the  stress 

components  (note:  not  the  substress  components)  and 
their  moments  through  the  thickness  to  give  components 
of  the  membrane  and  bending  resultants: 
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(2.30) 


From  these  components  the  subroutine  determines  the 
components  of  the  stress  resultant: 
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(2.31) 


SYMTRY  This  subroutine  imposes  the  symmetry  edge  conditions 

on  n*,  Mae  and  Nio  relating  the  values  of  these 
variables  one  mesh  spacing  outside  the  symmetry  edge 
to  their  values  one  mesh  spacing  inside.  Typically, 

2 3 

for  the  symmetry  plane  located  in  the  y , y coordinate 
plane  and  intersecting  the  middle  surface  along  the  m 
equals  a constant  curve  these  relations  are: 

n*(m-l,n)  ■ -n*(m+l,n)  , 

n2(m-l,n)  - n2(m+l,n)  , (2.32) 


n (m-l,n)  ■ n (m+l,n) 
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Mll(B-l»n) 

M12(a-l,n) 

M22(m-l,n) 


-M12(m*l,n) 

M22(m+l,n) 


(2. S3) 


Nll(m-l,n) 

N21(m-l,n) 

N31(m-l,n) 

N12(n-l,n) 

N22(m-l,n) 

N32(m-l,n) 


Nll(m+l,n) 
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-N12(m+l,n) 

N22(m+l,n) 

N32(m+l,n) 


(2.34) 
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for  all  admissible  n.  These  relations  as  well  as  relations 
for  other  symmetry  plane  locations  used  in  the  program  aro 
derived  in  (1;  Sect.  6.4  and  App.  B] . 


Returning  to  DGEOM,  the  program  determines  the  strain  energy  by 
summing  the  contribution  of  each  mesh  point  and  layer  as  described 
in  Section  2.5.  This  ends  DGEOM  and  calculations  return  to  the 
main  program. 

Next,  the  strain  components  at  selected  points  on  the  bounding 
surfaces  are  determined  in  subroutine  STRAIN,  as  described  in  Section 
2.S,  after  which  subroutine  MOTION  is  called. 


MOTION  This  subroutine  is  summarized  in  Figure  2.6.  Its  principal 

function  is  to  determine  the  values  Aui  of  the  coiqponents  of 
the  displacement  increments  undergone  by  the  middle  surface  in 
the  time  interval  [t,  t + At].  First  a check  is  performed  to 
determine  whether  a pressure  distribution  is  currently  acting 
on  the  shell.  If  a pressure  distribution  is  acting,  then 
subroutine  PWORK,  which  is  described  in  Section  2.4,  is  called 
in  order  to  determine  the  contribution  to  the  external  work  of 

the  pressure  acting  through  the  displacement  increments  Au*  of 
the  time  interval  [t  - At,  t].  With  no  pressure  loads  acting, 
the  subroutine  skips  PWORK  and  proceeds  directly  to  determine 

Aui  from  the  finite  difference  form  of  the  equations  of  motion 
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viscous  damping  effect.  However,  this  damping  term  only  appears 
when  the  damping  option  is  used  otherwise,  the  term  is  set  equal 
to  zero.  Next,  subroutine  BOUNDU  is  called. 
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BOUNDU  This  subroutine  generates  the  additional  values  of  Au+ 
need  along  symmetry  edges  and  modifies  the  values  of 

Au+  along  clamped  edges  so  that  clamped  edge  conditions 
are  satisified.  As  already  described  in  subroutine 
SYMTRY,  the  values  of  variables  one  mesh  spacing  outside 
a symmetry  edge  are  related  to  their  values  one  mesh 

spacing  in.  The  conditions  imposed  on  Au+  are  similar  to 

those  imposed  on  y1  in  (2.4):  for  the  symmetry  plane 


2 3 

located  in  the  y , y coordinate  plane  intersecting  the 


surface  along  the  m 

equals 

Aul 

(m-l,n) 

. 1 
* -Au+ 

(m+1 ,n) 

Au+ 

(m-l,n) 

2 

= Au+ 

(m+l,n) 

Auf 

(m-l,n) 

. 3 
s Au+ 

(m+1 ; n) 

Aui(m,n) 

= 0‘ 

(2.36) 


for  all  admissible  n.  Along  clamped  edges  the  components 

of  the  normal  n1  must  remained  fixed  at  their  initial 

values.  This  condition  is  achieved  by  adjusting  Au+ 
one  mesh  spacing  in  from  the  clamped  edge  so  that  its 
component  in  the  direction  of  the  edge  normal  is  1/4 

the  value  of  the  corresponding  component  of  Au+  two 

mesh  spacings  in  from  the  edge.  This  adjustment  guarantees 
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that  the  tangent  to  the  middle  surface  at  a clamped 
edge,  which  is  computed  using  a one-sided  finite  derivative, 
will  always  lie  in  a fixed  plane  perpendicular  to  the 
original  normal.  Typically,  for  a clamped  edge  fixed  in 
3 1 

the  y , y coordinate  plane  intersecting  the  middle  surface 
along  a curve  with  fixed  mesh  number  n,  the  relations  used 
are 

Au+  (m,n+l)  » Au^  (m,n+l)  - Aun  n^n^n)  , (2.37) 

where 

Au^  a n^(m,n)  [Au^  (m,n+l)  - j Au+  (m,n+2)]  (2.38) 

and  Au^  are  the  unadjusted  components  of  the  displacement 
increments  one  mesh  spacing  in  from  the  clamped  edge  as 
obtained  from  the  equations  of  motion. 

The  remainder  of  MOTION  is  concerned  with  energy  calculations, 
the  details  of  which  are  covered  in  Section  2.4.  Briefly,  the 

kinetic  energy  due  to  AuJ  is  calculated  and,  if  there  is  a 

pressure  loading,  the  portion  of  the  external  work  due  Au+  is 
also  calculated.  Then  the  total  external  work  is  computed  and 
finally  the  energy  dissipated  vy  plasticity  is  determined. 

Returning  to  the  main  program,  see  Figure  2.3,  the  next  subroutine 
called  is  PDATA,  which  is  described  in  Section  2.2.  Following  PDATA, 
subroutine  DAMP  is  called  in  order  to  compute  the  energy  removed  by 
the  damping,  as  described  in  Section  2.4.  A check  is  next  performed 
to  determine  if  information  for  a restart  should  be  collected  by 
subroutine  WRTAPE  at  this  time  step.  If  no  restart  information  need 
be  gathered,  then  the  finite  difference  calculational  loop  is  complete; 
otherwise,  WRTAPE  and  PDATa  are  called,  again  completing  the  finite 
difference  loop.  This  sequence  of  calculation  has  generated  new  values 

y1,  n1,  ct01^  and  Aui  of  the  fundamental  variables  from  the  old  values 

y1,  n1,  cra^  and  Au1;  the  solution  has  been  advanced  a time  step. 


2.4  Energy  Calculations 

The  energy  calculations  and  the  finite  difference  calculations  are 
performed  concurrently.  The  energy  calculations  use  the  results  of  the 
finite  difference  calculations  to  determine  the  current  values  of  the 
kinetic  energy,  the  strain  energy,  the  external  (pressure)  work  and  the 
plastic  work  (i.e.  the  energy  dissipated  by  plasticity).  When  the  damping 
option  is  used,  they  also  determine  the  energy  removed  by  damping,  called 


43 


the  deaping  work.  The  energy  calculations  have  no  influence  on  the  finite 
difference  calculations  and,  hence,  on  the  solution,  except  when  the 
damping  option  is  employed.  This  section  presents  the  equations  and 
procedure  used  in  the  REPSIL  energy  calculations;  a theoretical  report 
justifying  the  use  of  these  will  be  forthcoming  shortly. 

Because  the  energy  calculations  are  embedded  in  the  finite  dif- 
ferent calculations,  the  flow  chart.  Figure  2.3,  used  in  describing  the 
latter  calculation  still  pertains  and  will  be  referred  to  in  the  discussion 
that  follows. 

The  first  calculation  performed  is  for  the  strain  energy.  Immediately 

after  the  current  values  of  the  mixed  components  of  stress  are  computed 

in  STRESS,  Figure  2.5,  the  strain  energy  density  <P  per  unit  material 
coordinate  volume  at  mesh  point  (m,n)  and  layer  k is  calculated  using: 

* - jE  [Co}  + a2)2  - 2 (lev)  (oj  a2  - o\  a*)]  g\2.39) 


and  simultaneously  summed  over  all  mesh  points  and  layers.  The  strain 
energy  calculation  is  completed  in  DGEOM,  where  the  last  sum  is  multiplied 
by  the  finite  difference  volume  element  giving  the  strain  energy  of  the 
shell: 
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The  kinetic  energy  calculation  is  accomplished  in  subroutine  KINET, 
which  is  , as  shown  in  Figure  2.6,  called  by  subroutine  MOTION. 

KINET  The  kinetic  energy  density  \p  per  unit  material  coordinate  area 
of  the  middle  surface  at  the  mesh  point  (m,n)  is  determined: 


* ,1P  J M 4 • (2*41) 

^ 2 ao  At  At 

Summing  over  all  mesh  numbers  (m,n)  and  multiplying  by  the 
finite  difference  area  element,  the  kinetic  energy  of  the  shell 
is  obtained: 

T(t  + J At)  = E * An"  An2  • (2.42) 

i m,n 


Notice,  sin< a the  displacement  increments  Au*  are  for  the  time 
interval  [t,t+At],  the  kinetic  energy  is  properly  centered  at 
the  time  t + 1/2  At,  as  indicated.  The  kinetic  energy  at  the 
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tine  t is  determined  by  averaging  the  values  of  the  kinetic 
energy  at  times  t ♦ -|dt  and  t - -jAt: 

T (t)  - j [T  (t  + j At)  ♦ T (t  - j At) ] . (2.43) 

The  external  work  calculation  is  done  in  two  steps,  accomplished  by 
MOTION  calling  subroutine  PWORK  twice,  see  Figure  2.6. 

PWORK  This  subroutine  calculates  the  work  u per  unit  material  coordinate 
area  of  the  middle  surface  at  the  mesh  point  (m,n)  due  to  the 

pressure  P acting  during  half  the  displacement  increment  Au1  using 
the  equation 


b) 


Au1  n1 


(2.44) 


where  the  negative  sign  is  a consequence  of  the  pressure  be 

oppositely  directed  to  n1.  The  subroutine  then  sums  m over  the 
mesh  points  and  returns  to  MOTION. 

The  first  time  PWORK  uses  the  values  of  the  displacerae»it  increments 
for  the  time  interval  [t  - At,  t],  determining  the  contribution  to  the 
external  work  of  the  interval  [t  - 1/2  At,  t] ; the  second  time  it  uses 
the  values  for  the  increment  [t,  t ♦ At],  determining  the  contributions 
of  the  interval  [t,  t + 1/2  At].  These  contributions  are  added  and  the 
result  multiplied  by  the  finite  difference  area  element  to  give  the 
total  external  work  during  the  time  interval  [t  - 1/2  At  t + 1/2  At]: 

AW  (t)  « £ [«(t  - ^ At)  + ui  (t  + j At)]  An1  An2  , 
m,n 


■ - E i 

m,n 


+_Au+ 

2 


n1  P*]  An1  An2 


(2.45) 


This  work  increment,  which  is  properly  centered  at  time  t,  is  then  averaged 
with  the  work  increment  at  time  t - At  to  give  the  work  increment  for  the 
time  interval  [t  - At,  t]  centered  at  time  t - 1/2  At: 


AW  (t  - 1/2  At)  = 1/2  [AW  (t  - At)  + AW  (t) ] . 


(2.46) 


This  average  work  increment  is  added  to  the  total  external  work  up  to 
the  time  t - At  to  give  the  external  work  done  up  to  the  current  time  t: 


45 


W (t)  - W (t  - At)  ♦ AW  (t  - 1/2  At). 


(2.47) 


The  reasons  for  doing  the  external  work  calculation  in  this  rather 
elaborate  way  are  made  clear  in  the  forthcoming  theoretical  report  on 
the  energy  calculations. 

If  the  damping  option  is  not  in  effect,  then  the  only  means  by 
which  energy  is  dissipated  is  through  plastic  flow.  This  unavailable 
energy  is  measured  by  the  plastic  work  Wp,  which  is  simply  the  difference 

of  the  total  external  work  and  the  sum  of  the  kinetic  energy  and  strain 
energy: 

u _ u t _ v (2.48) 


The  plastic  work  is  computed  in  MOTION,  just  following  the  external  work 
calculation,  see  Figure  2.6.  With  this  calculation,  the  generation 
of  current  values  of  W,  T and  V is  complete  and  the  energy  calculations 
end. 


On  the  other  hand  if  the  damping  option  is  in  force,  then  there  is 
an  additional  means  of  energy  dissipation,  measured  by  the  damping  work 
WQ.  In  this  case  the  plastic  work  Wp  is  computed  from 

Wp»W-T-V-WD.  (2.49) 


The  damping  work  W^  is  computed  in  subroutine  DAMP  which  is  called  after 

MOTION,  in  which  the  above  calculation  for  Wp  is  performed.  Hence,  for 

a proper  sequencing  of  calculations,  DAMP  must  compute  the  damping  work 
up  to  the  next  time  step  t + At. 

DAMP  This  subroutine,  which  is  schematically  summarized  in  Figure  2.7, 
controls  the  entire  damping  operations.  As  already  mentioned  in 
the  introduction,  these  operations  remove  the  kinetic  energy  of 
the  system  efficiently  so  that  the  shell  approaches  a static 
equilibrium  configuration  quickly.  The  kinetic  energy  is  removed 
in  two  ways:  first  through  viscous  damping  and  second  through  the 
use  of  a kinetic  energy  annihilation  (KEA)  procedure.  The  KEA 
procedure  is  the  principal  means  of  energy  removal,  while  the 
viscous  damping  mainly  serves  to  smooth  out  disturbances  in  the 
solution  caused  by  the  abrupt  nature  of  the  KEA  procedure. 
Conceptually,  the  KEA  procedure  involves  "freezing"  the  position 
of  the  shell  whenever  the  kinetic  energy  achieves  a local  max- 
imum, so  that  the  velocity  and  hence  the  kinetic  energy  vanish 
instantaneously,  followed  by  an  immediate  "release"  of  the  shell. 
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Since  it  is  highly  unlikely  that  the  shell  will  be  "frozen"  in 
a static  equilibrium  configuration,  it  will  resume  its  motion  on 
being  "released",  but  with  the  total  energy  reduced  by  the  amount 
of  kinetic  energy  present  when  the  maximum  was  achieved.  This 
procedure  is  repeated  at  each  maximum  of  the  kinetic  energy 
until  the  energy  removed  at  some  maximum  is  a small  enough  fraction 
of  the  total  energy  removed,  at  which  time  the  shell  is  considered 
sufficiently  close  to  its  static  equilibrium  configuration  and 
computations  terminate*.  This  procedure  is  motivated  by  two 
considerations:  first,  the  removal  of  energy  is  accomplished 

efficiently,  since  it  occurs  when  the  kinetic  energy  is  at  a peak 
and,  second,  should  the  kinetic  energy  be  at  its  absolute  maximum, 
then  the  corresponding  configuration  would  be  a static  equilibrium 
configuration. 

The  subroutine  begins  by  determining  if  the  damping  procedure  is 
in  force  by  checking  the  time  t against  the  prescribed  time  tp 

at  which  this  procedure  is  to  begin.  If  tp  is  not  exceeded  the 

remainder  of  the  subroutine  is  not  used  and  calculations  return 
to  the  main  program.  When  tp  is  exceeded,  first  the  pressure  P 

is  set  to  zero.  Second,  the  kinetic  energy  is  checked  as  to 
whether  it  has  just  reached  a local  maximum  by  comparing  its 
value  T+  at  the  time  t + 1/2  At  to  its  value  T_  at  t - 1/2  At.** 

If  T+  > T_  then  no  maximum  has  been  reached  and  the  subroutine 

adds  the  increase  in  the  damping  work  due  to  viscous  damping 
over  this  interval,  which  is  simply  a linear  function  of  T+,  to 
the  damping  work  Wp  at  the  time  t to  obtain  the  damping  work  Wp 

at  the  time  t + At  J 

Wp  * Wp  ♦ 2 j?-—  T^  . (2.50) 

o 

On  the  other  hand,  if  T+  $ T_,  a local  maximum  has  been  reached 

and  the  KEA  procedure  goes  into  effect.  To  maintain  the  energy 
balance,  the  kinetic  energy  removed  at  this  time  t is  added  to 
the  damping  work: 


W 


+ 

D 


Wr 


+ T. 


(2.51) 


* This  method  for  reducing  kinetic  energy  appears  to  be  in  common  use; 
See,  for  example,  DAHL,  BEELER  and  BOURQUIN  [4]  who  use  this  method  to 
obtain  computer  solutions  of  some  solid  state  physics  problems. 

**  Cf.  the  description  of  subroutine  KINET,  where  the  notation  T(t+l/2  At) 
and  T(t-l/2  At)  was  used  for  T+  and  T_. 
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The  sun  of  kinetic  energy  T removed  at  this  time  and  the  kinetic 
energy  T*  removed  by  the  previous  KEA  calculation  is  compared  to 

the  damping  work  W*.  If  this  sum  iz  a small  enough  fraction  of 

W*,  then  the  maximum  time  for  the  problem  t is  set  equal  to  the 

present  time  t,  after  which  the  main  program  causes  the  problem  to 
terminate,  see  Figure  2.3.  If  the  sum  is  not  sufficiently  small, 

then  the  displacement  increments  Aui  are  set  equal  to  zero,  making 
the  velocities  at  time  t + 1/2  At  and,  hence,  the  kinetic  energy  T 

vanish.  Since  Au+  ■ 0,  the  position  of  the  shell  and  stress  field 
at  the  time  t ♦ At  will  remain  the  same  as  at  the  previous  time  t. 
Hence,  these  variables  need  not  be  recalculated  and  the  subroutine 
can  proceed  to  increase  the  time  step  and  call  MOTION  in  order  to 

calculate  the  displacement  increments  Au*+  for  the  interval 

[t  ♦ At,  t + 2 At]  and  the  kinetic  energy  T++  at  the  time  t + 3/2 

At.  The  kinetic  energy  T++  is  next  compared  with  T_ . If  T++  < T_ 

then  the  subroutine  finishes  the  damping  operations  by  calling 
PDATA  in  order  to  collect  some  plotting  information  and  returns 
to  the  main  program.  However,  if  T++  > T_  then  experience  has 

shown  that  a numerical  instability  due  to  the  KEA  operations  is 
likely  to  occur.  To  remedy  this  the  subroutine  calls  subroutine 
nESTEP  in  order  to  confute  a smaller  stable  time  increment  At*. 

OESTEP  This  subroutine  calculates  a decreased  time  step  At*  that 
prevents  the  KEA  operations  from  causing  an  instability: 


Then  the  values  of  Au1  and  T++  are  adjusted  for  the 
decreased  time  step  by  scaling: 


(2.53) 

(2.54) 


Returning  from  DESTEP  back  to  DAMP,  PDATA  is  called  and  the 
calculations  return  to  the  main  program  as  before. 
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2,5  Surface  Strain  Calculations 

The  surface  strain  calculations,  like  the  energy  calculations,  are 
embedded  in  the  finite  difference  sequence  of  calculations.  They  do  not 
influence  the  solution,  but  their  results  are  a consequence  of  the  solution 
and  provide  useful  local  measures  of  the  validity  and  reliability  of  the 
solution.  The  elongational  strains  in  prescribed  directions  at  prescribed 
locations  on  the  bounding  surfaces  of  the  shell  are  calculated.  The 
equations  used  are  derived  in  [1;  App.  D]  and  give  the  exact  elongation 
per  unit  initial  length,  with  no  approximations  based  on  the  smallness 
of  strain  being  invoked.  The  strains  are  intended  to  simulate  the  read- 
ings of  strain  gages  bonded  to  the  shell  at  these  locations. 

The  strain  calculations  take  place  in  subroutine  STRAIN.  However, 
before  these  calculations  are  performed,  the  interpolation  coefficients 
and  the  mesh  numbers  bracketing  the  strain  locations  are  calculated  in 
START,  see  Figure  2.2,  and  subroutine  ABINIT  is  called  during  the  initial 
pass  through  DGEOM,  see  Figure  2.4. 

ABINIT  This  subroutine  uses  the  mesh  numbers  of  the  mesh  points  bracketing 
the  strain  locations,  as  determined  to  START,  to  select  the  initial 
values  of  aQg  and  bag  at  the  bracketing  mesh  points.  These  values 

are  stored  in  arrays  for  later  use  in  STRAIN. 

The  above  calculations  are  performed  initially  and  only  once.  The 
covariant  components  of  strain  on  the  bounding  surfaces  of  shell  are 

computed  in  DGEOM  each  time  step  for  every  mesh  point  using  the  equation 

Ea«  " * i (iaa«  - h lbaB)'  (2>5S) 

where  e-^  are  the  covariant  strain  components  at  the  previous  time 

(t  - At),  h is  the  shell  thickness  and  the  + or  - sign  depends  on  whether 
the  bounding  surface  is  on  the  negative  or  positive  side  of  the  normal 

n1,  respectively.  The  covariant  components  of  strain  are  used  in  STRAIN, 
immediately  following  DGEOM. 

STRAIN  This  subroutine  calculates  the  elongational  strains  in  pre- 
determined directions  at  predetermined  locations  on  the  surfaces 
of  the  shell.  It  also  computes  the  components  of  the  total 
displacement  of  a predetermined  locations  on  the  middle  surface. 
These  directions  and  locations  are  specified  in  the  input  data, 
see  Section  3.2.  At  each  strain  location  four  elongational 
strains  are  found:  two  along  the  coordinate  curves  and  two  in 

directions  specified  in  the  input  data  by  the  angles  e made 

with  the  n1  coordinate  curve,  see  Figure  3.5.  The  first  time 
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this  subroutine  is  executed,  see  Figure  2.8,  the  interpolation 
coefficients  calculated  in  START  are  used  to  linearly  interpolate 
the  initial  values  of  aag  and  bQg  to  obtain  the  corresponding 

values  Agg  and  8^  at  the  strain  locations.  From  these  values, 

the  components  of  the  surface  metric  G at  these  locations  are 
calculated:  ap 


♦ h B 


a 8 


(2.56) 


where,  as  in  (2, 55),  ♦ or  - depends  on  the  surface  lying  in  the 

negative  or  positive  direction  of  n*.  Also,  the  direction 
coefficients  o and  8 are  calculated  from  the  angle  6 specifying 
the  strain  directions: 


a ■ sin  e 


8 ■ cos  8 - a6 


(2.57) 


where  6 is  a function  of  G 

a8 

« - G12  / / gUC22  (2.58) 

This  calculation  ends  the  initial  pass  through  the  subroutine. 
For  all  subsequent  time  steps,  the  subroutine  uses  a different 
computational  loop  to  calculate  the  elongational  strains  and 
the  components  of  total  displacement,  as  shown  in  Figure  2.8. 
First;,  the  values  e^g  at  the  mesh  points  bracketing  the  strain 

loca v.ions  are  linearly  interpolated  to  give  the  covariant 
components  of  strain  EQg  at  the  strain  locations.  These  com- 
ponents are  combined  with  G g to  give  the  intermediate  strain 
components 


* e2  a ^22^27  * T - l l^Tl^12  * (2.59) 

From  these  intermediate  components,  the  subroutine  determines 

i 2 

the  elongational  strains  along  the  n"1  and  n coordinate  curves: 


E 


1 


E2  * /I  -i 


(2.60) 
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and  in  the  direction  specified  by  8 : 


I 


Efl  ■ / 1 * 2 (82c1  ♦ 2 o$y  ♦ a?  Cj)  -1  (2.61) 

The  remainder  of  the  subroutine  involves  determining  the  total 

displacement  components  U*  at  a predetermined  location.  The 

components  of  displacement  increments  Au*-  at  the  mesh  point 
surrounding  the  displacement  location  are  linearly  interpolated 

to  give  the  cooponents  of  displacement  increment  AU*  at  this 
location.  These  components  are  added  to  the  previous  values 

of  the  components  of  the  total  displacement  U1,  to  give  their 
current  values, 

U1  ■ U*  ♦ AU1  . (2.62) 
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3.  DESCRIPTION  OF  INPUT 


3«1  Input  Cards 

The  data  needed  to  run  REPS  I L ere  supplied  on  '.iput  cards  and,  in 
the  case  oC  certain  pressure  loadings,  on  a user- gene; a t ed  input  tape. 
Instructions  for  generating  the  pressure  input  tape  are  given  in  Section 
6.2.  The  input  cards  assign  values  to  the  FORTRAN  variables  listed  in 
Table  3.1  in  that  order  using  the  formats  indicated. 


Table  3.1  List  of  Input  Cards 


1 TITLE 


MESH,  NMESH,  LAYER,  YLDFAC 
MAXC,  NCONT,  NRITE,  DELTAT 
IBEC1,  IBEC2,  IBEC3,  IBEC4 
LOAD,  LPRESS,  MDAMP,  DAMPF,  DFACT 
E,  FNU,  SIGZ,  RHO,  THICKN,  NSFL,  ISR 
(SSIG(J),  SEPS(J),  DSR(J),  PSR(J),  J-l,  NSFL) 

8 NPRINT,  (JCHK(J) , J-l, 3) 

9 NUMCY,  (NCYCH(J) , J-l,  NUMCY) 

10  NLPRIN,  (JCYNLP(J),  J-l.NLPRIN) 

11  N3D  (NC3DP(J) , J-l,  N3D) 

12  ETADI,  ETAD2,  NSTRN 

13  (ETAGl(I).  ETAG2(I) , ANGLE(I) , ANGLB(I) , 

NETAG(I) , 1-1,  NSTRN) 

14  LENGTH,  WIDTH  [for  i'lat  plate] 

LENGTH,  RADIUS,  THETA  [for  cylindrical  shell] 
LENGTH,  RADI,  RADF,  THETA,  MASH  [for  conical  shell] 

15  MI,  MF,  NI,  NF,  VR,  NV 

16  M,N, V 


3I5,E12.6 
3I5,E12 .6 
415 

3I5.2E12.6 
5E12.6.2I5 
4E15. " 


2E10.4.I5 


4E10.4, IS 

2E12.6 

3E12.6 

4E12.6, IS 

4I5,E12.6,I5 

2IS.E12.6 


The  following  rules  should  be  obeyed  in  preparing  the  input  cards. 


•Omit  card  7 if  either  NSFL  ■ 0 or  NSFL  ■ 1 and  ISR  ■ 0;  otherwise, 
the  number  of  card  7*s  must  match  NSFL. 

• The  number  of  card  13's  must  match  NSTRAN  > 1. 

•Only  one  card  14  is  used,  with  the  data  matching  the  particular 
subroutine  1NGE0M  used. 

• Omit  cards  !S  and  16  if  LOAD  ■ 1 or  NCONT  > 0. 

•Omit  card  16  if  NV  ■ 0;  otherwise,  the  number  of  card  16's  must 
equal  NV, 

The  input  cards  can  be  grouped  according  to  the  type  of  data  they 
supply: 


Cards  2,3 

Card  4 
Card  5 

Card  6,7 
Card  8,9,10,11 
Cards  12,13 

Card  14 
Card  15,16 


Data  controlling  the  finite  difference  and 
numerical  analysis. 

Parameters  for  selecting  boundary  conditions. 

Data  controlling  the  type  of  loading  and  the 
damping  option. 

Material  properties. 

Printing  and  plotting  control  numbers. 

Data  specifying  locations  where  displacement 
components  and  surface  strains  are  to  be 
calculated. 

Dimensions  of  shell. 

Data  characterizing  the  initial  impulse  velocity. 


3.2  Description  of  Input  Variables 

The  input  variables  are  described  below  in  the  order  in  which  they 
appear  on  the  input  cards,  as  listed  in  Table  3.1.  The  dimensions  of  a 
variable  are  indicated  by  capital  letters  in  square  brackets  following 
the  short  underlined  description  of  the  variable,  with  F representing 
force,  L length,  and  T time.  The  program  is  written  to  accept  any 
consistant  set  of  dimension  units.  For  example,  the  mass  density  in  the 
pound- inch-second  system  of  units  for  a material  weighing  1 pound  per 

cubic  inch  would  be  ^ . 
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Card  1 TITLE  Title  to  identify  run.  Not  to  exceed  80  alphanumeric 

characters . 

Card  2 MESH  Number  of  mesh  intervals  in  the  n*  direction. 

j 

NMESH  Number  of  mesh  intervals  in  the  n‘  direction. 

Figures  3.6  - 3.8  show  the  orientation  of  the  mesh 
1 2 

relative  to  the  n and  n directions  for  the  initial 
geometries  presently  programmed  in  REPSIL.  The  choice 
of  MESH  and  NMESH  should  only  be  based  on  the  portion 
of  the  shell  to  be  actually  analyzed;  additional  intervals 
due  to  exterior  mesh  points  along  symmetry  boundaries 
should  be  disregarded.  MESH  and  NMESH  are  limited  by 
the  maximum  number  of  M and  N mesh  elements  permitted 
by  DIMENSION  and  COMMON  statements  (see  Section  3.3): 


MESH  < M 

- max 


(2  ; IBCE3  * 1,3 
<3  ; IBCE3  * 2 


NMESH  < N 

- max 


1 ; IBCE2  » 1,3 

2 ; IBCE2  * 2 


LAYER  Number  of  layers  into  which  the  shell  thickness  is 

divided.  The  shell  is  divided  into  layers,  within  which 
the  stress  is  assumed  constant,  in  order  to  facilitate 
the  modelling  through  the  thickness  of  the  stress  profile 
resulting  from  plasticity.  Hence,  the  greater  the  number 
of  layers  used,  the  more  accurately  is  the  stress  profile 
presumably  modelled,  but  at  the  expense  of  longer  computa- 
tion times  and  greater  memory  requirements.  LAYER  * 4 
has  been  found  to  be  a good  compromise  giving  reasonably 
accurate  deflections. 


YLDFAC  Parameter  controlling  the  "thickness"  of  ellipsoidal 

annuli  surrounding  yield  surface  in  stress  space.  The 
ellipsoidal  annuli  divided  the  excursions  of  the  stress 
increment  outside  yield  surface  into  subincrements  making 
the  calculation  of  the  stress  on  the  yield  surface  more 
accurate,  see  Appendix  B.  Accuracy  increases  with  value 
of  YLDFAC,  but  at  the  expense  of  increased  computation 
times,  with  YLDFAC  * 1 a good  compromise.  In  order  not  to 
use  this  option  set  YLDFAC  » 0. 
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Card  3 MAXC  Time  step  at  which  it  is  desired  to  terminate  the 
problem. 

NCONT  Time  step  at  which  it  is  desired  to  begin  the  problem. 

For  new  problems  NCONT  = 0 and  for  restart  problems 
NCONT  =»  time  step  from  which  solution  is  continued. 

Notice  that  always  NCONT  < MAXC. 

NRITE  Time  steps  elapsed  between  the  gathering  of  restart 
data.  Restart  information  written  on  the  restart 
tape (tape  #1) every  NRITE  time  steps.  If  it  is  planned 
to  restart  a problem,  NRITE  < MAXC;  if  restart  information 
is  not  desired,  make  NRITE  > MAXC  and  omit  tape. 


DELTAT  Finite  difference  time  increment  [T] . Using  equations 

(2.3),  the  program  calculates  time  increments  that  assure 
numerical  stability  in  the  membrane  and  bending  modes  of 
vibration  and  then  chooses  the  minimum  of  these  and  the 
input  DELTAT  to  use  in  the  finite  difference  calculations. 
If  DELTAT  * 0.0,  the  program  chooses  the  minimum  stable 
time  increment. 


Card  4 


IBEC1 

IBEC2 

IBEC3 

IBEC4 


Number  prescribing  boundary  conditions  along  the  edges 
of  the  shell.  In  Figure  3.1  the  edges  are  inumerated 
relative  to  the  (M,N)  grid  and  the  admissible  values  of 
the  boundary  control  numbers  at  each  edge  are  listed. 


Clamped  edge  condition  (1).  Coordinates  of  middle  surface 

y1  and  components  of  normal  n1  are  fixed  at  their  initial 
values  along  this  edge. 


Symmetry  edge  condition  (2).  Edge  lies  in  a symmetry 
plane  about  which  the  shell  and  the  loads  are  symmetrically 
distributed.  Edge  1 is  always  a symmetry  edge  located  in 

the  y1  = 0 symmetry  plane,  see  Figures  3.6  - 3.8.  The 

2 

symmetry  plane  for  edge  2 is  y = LENGTH,  see  Figure  3.6 
and  3.7.  The  symmetry  plane  for  edge  3 is  the  same  as 

that  for  edge  1,  namely  y = 0,  and  hence  is  applicable 
to  shell  intersecting  this  plane  twice,  such  as  cylinders 
and  cones,  see  Figure  3.7  and  3.8.  Care  should  be  taken 
that  the  symmetry  edge  condition  be  compatible  with  the 
particular  shell  geometry  treated,  e.g.  although  IBCE3 
=2  is  admissible,  it  is  certainly  not  appropriate  to 
the  flat  plate  (Figure  3.6)  or  the  cylindrical  panel 
with  THETA  < ir  (Figure  3.7). 
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EDGE 

1: 

IBCE1  * 2 

(SYMMETRY) 

EDGE 

2- 

I BCE 2 = I 

(CLAMPED) , 

2 

EDGE 

3: 

I BCE 3 = 1 

(CLAMPED) , 

2 

EDGE 

4: 

IBCE4  = 1 

(CJ  JUMPED) 

OR 

(SYMMETRY)  OR  3 (HINGED) 
(SYMMETRY)  OR  3 (HINGED) 
3 (HINGED) 


Figure  3.1  Admissible  Boundary  Conditions 


58 


Hinged  edge  conditions  (3).  Coordinates  of  middle 
surface  y1  are  fixed  at  their  initial  values  along 
this  edge,  but  normal  n1  is  free  to  rotate  about  edge. 

Card  5 LOAD  Number  controlling  mode  of  loading 

» -1,  initial  impulse  velocity  and  pressure- time  loading, 

= 0,  initial  impulse  velocity, 

* 1,  pressure-time  loading. 

Initial  velocity  distribution,  other  than  those  represent- 
able by  cards  15  and  16,  and  pressure-time  histories  must 
be  supplied  by  the  user  in  appropriate  form  through  sub- 
routines INVEL  and  PRESS;  instructions  for  doing  this  are 
in  Sections  6.2  and  6.3,  respectively. 

LPRESS  Distribution  of  pressures  over  shell  after  time  steps 
LPRESS  fixed  at  the  LPRESS  distribution.  If  LOAD  * 0, 
set  LPRESS  » 0.  If  user  does  not  desire  to  fix  pressure 
distribution,  make  LPRESS  > MAXC. 


MDAMP  Time  step  at  which  damping  starts.  Numerical  damping  is 

used  to  rapidly  slow  down  the  motion  of  the  shell  in  order 
to  obtain  a final  equilibrium  configuration.  MDAMP  is 
selected  after  most  of  the  plastic  dissipation  is  over. 
This  entails  a preliminary  run  in  order  to  estimate  from 
the  energy  balance  when  plastic  deformation  is  vitually 
finished;  the  damping  run  is  continued  from  the  time 
step  closest  to  MDAMP  as  a restart  problem  (see  Section 
3.4).  If  damping  is  not  desired  set  MDAMP  > MAXC,  other- 
wise values  for  DAMPF  and  DFACT  must  be  supplied  below. 

DAMPF  Viscous  damping  coefficient  used  in  smoothing  solution 

J 

during  damping  [FT/L  ] • Should  not  be  too  large  in 
order  to  avoid  overdamping  and  consequently  prolonging 
the  time  to  reach  a final  configuration. 

DFACT  Parameter  controlling  termination  of  problem  during 

damping.  If  t^e  ratio  of  the  sum  of  the  energies  removed 
in  two  consecutive  kinetic  energy  annihilations  to  the 
damping  work  is  less  than  DFACT,  the  problem  terminates 
(see  Figure  2.7).  The  smaller  DFACT  is  made,  the  less 
the  residual  kinetic  energy  at  termination,  but  at  the 
expense  of  longer  machine  times. 


Card  6 E 


Young's  modulus  [F/I/ ] . 


FNU  Poisson's  ratio. 

SIGZ  Yield  stress  [F/L2].  For  perfectly  plastic  behavior  SIGZ 
is  the  maximum  stress  o0  on  the  uniaxial  loading  curve. 
Figure  3.2;  for  strain  hardening  behavior  SIGZ  is  the 
stress  0^  at  the  first  change  in  slope  in  the  polygonal 

approximation  to  the  loading  curve,  Figure  3.3. 

2 A 

RHO  Initial  mass  density  per  unit  volume  fFT  /l  ]. 

THICKN  Thickness  of  shell  fLj. 

NSFL  Number  of  changes  in  slope  in  the  polygonal  approximations 
to  the  uniaxial  loading  curve  (equal  to  the  number  of 
stress  sublayers): 

* 0,  no  plasticity  = elastic  behavior, 

■ 1,  elastoplastic  with  no  strain  hardening, 

> 1,  elastoplastic  with  strain  hardening. 

ISR  Strain  rate  sensitivity  control 

= 0,  plasticity  is  strain  rate  independent, 

» 1,  plasticity  is  strain  rate  dependent. 

Card  7*  SSIG(J) ,SEPS(J)  Stress  [F/L2]  and  strain  [L/L]  at  points  of 

slope  change  of  the  polygonal  approximation  to 
the  uniaxial  loading  curve.  Figure  3.3,  where 
J = 1,  NSFL.  The  program  automatically  makes 
these  data  compatible  with  those  on  Card  6 by 
setting  SSIG(l)  » SIGZ  and  SEPS(l)  * SIGZ/E. 

For  the  strain  rate  sensitive  case,  cake  these 
data  from  the  static  loading  curve. 

DSR(J) , PSR(J)  Emperical  constants  used  to  model  strain  rate 
sensitive  behavior,  d and  p of  equation  (2.21). 
Pair  of  constants  must  be  specified  for  each 
slope  change  (i.e.  each  stress  sublayer)  on  the 
polygonal  approximation  to  the  loading  curve, 

J = 1,  NSFL.  On  the  stress-strain  diagrams. 
Figure  3.4,  the  straight  line  portions  of  the 


* Omit  card  7 if  either  NSFL  * 0 or  NSFL  = 1 and  ISR  = 0. 


60 


°b 


STRESS 


Figure  3.2  Uniaxial  Loading  Curve  for  the  Elastic/Perfectly-Plastic 
Constitutive  Model 


STRESS 


Figure  3.3  Uniaxial  Loading  Curve  for  the  Strain  Hardening  Constitutive 
Model  and  Polygonal  Approximation  to  Loading  Curve 
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€ = C3 

i*C2 

<*Ci 


* * O 


STRESS 


7 y 


STRAIN 

a.  Strain  rate  parameters  the  same  at  each  point  of  slope  change. 


STRAIN 

b.  Strain  rate  parameters  differ  at  each  point  of  slope  change. 


Figure  3.4  Polygonal  Approximations  to  the  Uniaxial  Loading  Curve  at 
Various  Constant  Strain  Rate  Levels  for  Strain  Rate 
Sensitive  Materials 


constant  strain  rate  curves  are  parallel  to  the  corre- 
sponding portions  of  the  static  loading  curve.  The  strain 
Cj  at  each  point  of  slope  change  is  magnified  from  the 

corresponding  static  strain  e^'by  the  rate  sensitivity 

factor: 


e 


j 


> 


where  e is  the  strain  rate>  see  (2.22).  If  the  same 
values  of  DSR(J)  and  PSR(J)  are  used  for  all  J,  the 
stress  Oj  at  each  point  of  slope  change  is  also  magnified 

from  the  corresponding  static  stress 


1 


so  that 


°j  * 'V  ' £P  'i  • 


as  illustrated  in  Figure  3.4a. 


Card  8 NPRINT  Number  of  elapsed  time  steps  between  surface  strain 

prints . This  print  is  described  in  Section  4.1.5.  The 
remainder  of  the  strain  print  data  is  specified  on 
Card  13.  If  this  print  is  not  desired,  set  NPRINT  > 
MAXC. 


JCHK(J)  Numbers  controlling  the  printing  of  output  data: 

JCHK(l),  components  of  displacement  increments, 

JCHK(2),  coordinates  of  middle  surface  and  the  pressure, 
JCHK(3),  components  of  surface  normal; 

!0,  data  not  printed, 

1,  data  printed. 

Card  9 NUMCY  Number  of  time  steps  for  which  JCHK(J)  controlled  data 
and  energy  balance  data  are  to  be  printed.  Sections 
4.1.2  and  4.1.3  describe  these  prints. 
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NCYCH(J)  Time  steps  at  which  JCHK(J)  controlled  data  and  energy 
balance  date  ere  printed.  If  these  prints  are  not 
desired,  set  NIMCV  > 1 and  NCYCH(l)  > liAXC. 

Card  10  NLPRIN  Number  of  time  steps  for  which  the  LMAT  (M,N,K)  array 

is  printed.  See  Section  4.1.4  for  a description  of 
this  print. 


JCYNLP(J)  Time  steps  at  which  the  LMAT  (M,N,K)  array  is  printed 
If  thi«  print  is  not  desired,  set  NLPRIN  ■ 1 and 
JCYNLP(l)  > MAXC. 


Card  11  N3D  Number  of  time  steps  for  which  isometric  and  cross-sec- 

tional plots  are  drawn.  A description  of  the  plotting 
capabilities  of  REPSIL  is  given  in  Section  4.2. 

NC3DP(J)  Time  steps  at  which  isometric  and  cross-sectional  plots 
are  drawtu  If  plots  are  not  desired, "set  N3D»1  and 
Nc3DP  (1)  > MAXC. 


Card  12  ETADI,ETAD2  Material  coordinates  of  location  at  which  the  com- 
ponents of  displacements  are  calculated  and  plotted 
[dimensions  correspond  to  those  for  ETAGl(I),  ETAG2(I) 
below] . 

NSTRN  Number  of  locations  at  which  surface  strains  are 
calculated  and  plotted  . 

Card  13  ETAGl(I),  ETAG2(I)  Material  coordinates  of  locations  at  which 

surface  strains  are  calculated  and  plotted.  Figure 
3.5.  Dimensions  depend  on  subroutine  INGEOM: 

Flat  plate,  distance  along  width  and  length. 

Figure  3.6, 

Cylinder,  angle  in  degrees  from  the  symmetry  plane 
and  distance  along  axis,  Figures  3.7. 

Cone,  angle  in  degrees  from  the  symmetry  plane  and 

arclength  along  the  cone  generator.  Figure  3.8. 

ANGLE(I) ,ANGLB(I)  Angles  6 measured  in  degrees  from  the  n* 

direction  counterclockwise  about  the  normal  of~ the 
directions  in  which  surface  strains  are  calculated . 
Figure  3.5,  where  0 < 9 < 180”. 

NET AG (I J Number  selecting  the  bounding  surface  on  which  surface 

strain  calculations  are  performed.  Figure  3.5: 

■ 0,  surface  on  positive  side  of  normal, 

* 1,  surface  on  negative  side  of  normal. 
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Figure  3.5  Material  Coordinates  n Locating  Surface  Strains  Position  and  Orientation  of  Strain 
Direction  Relative  to  the  n1  Direction 


Card  14 


LENGTH 


Dimensions  of  shall  specified  on  this  card.  Data 
specifying  dimensions  must  be  compatible  with  the 
particular  subroutine  INGEOM  used.  The  next  three 
figures  show  the  orientations  relative  to  the  Cartesiar 

coordinate  axes  y*  and  the  associated  compatable  bound* 
ary  conditions  for  the  three  INGEOM  subroutines 
presently  programmed  in  REPSIL. 

Length  of  plate  along  symmetry  boundary  [L] , Figure 
3.67  Length  of  cylinder  axis  fL] , Figure  3.7. 

LengthTf  cone  along  axis  TlI  . Figure  3.8. 


WIDTH  Width  of  plate  up  to  symmetry  boundary  [L] , Figure  3.6. 

RADIUS  Radius  of  cylinder  [L],  Figure  3.7. 

RADI.RADF  Small  and  large  radii  of  cone  [L],  Figure  3.8. 

THETA  Angie  subtended  by  cylindrical  or  conical  panel 

measured  from  the  symmetry  plane  [Degrees],  Figures 
3.7  and 

MASH  Number  controlling  mesh  proportions  for  cone: 

* 0,  equal  mesh  intervals  along  meridian.  Figure  6.2a, 

■ 1,  constant  mesh  proportions,  Figure  6.2b. 

For  the  details  of  this  option  see  Section  6.4. 

Card  15*  This  card  gives  the  data  on  the  uniform  initial 

impulse  velocity  field  and  gives  the  number  of 
points  with  nonuniform  impulse  velocity,  see  Figure 
3.9.  As  indicated  in  the  figure,  velocities  are 
directed  in  the  opposite  sense  to  the  normal. 

MI,MF  Minimum  and  maximum  values  of  mesh  number  M for  point 
receiving  uniform  initial  impulse  velocity  VR. 

2 < MI  < MF  < MESH  + 2. 

NI,NF  Minimum  and  maximum  values  of  mesh  number  N for  point 
receiving  uniform  initial  impulse  velocity  VR. 

1 < NI  < NF  < NMESH  + 1. 


* Cards  15  and  16  omitted  if  LOAD  * 1 or  NC0NT>  0. 
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NO  +NMES 


mmm 


M«2  ♦MESH 


Boundary  conditions 
compatible  with  cylindrical 
geometry  (see  Figure  3.1 
for  key) : 


RADIUS 


SYMMETRY  PLANE 


IBCE1  - 2 
I BCE 2 - 1,  2 or  3 


IBCE3 


1 or  3 when  0 < a < 180°  (as  shown) 
1,  2 or  3 when  o * 180° 


IBCE4  - 1 or  3 


Figure  3.7  Cylindrical  Shell  Geometry 


Boundary  conditions 
compatible  with  conical 
geometry  (see  Figure  3.1 
for  key) : 


I IBCE3  - 2 
IBCE2  • 1 or  3* 

1BCE3  « 1 or  3 when  0 < 8 < ISO8 

■ 1,2  or  3 when  A * 180°  (as  shown) 

' IBCE4  - 1 or  3 


*IBCE2  ■ 2 would  result  in  discontinous  slope  across  boundary  . 


Figure  3.8  Conical  Shell  Geometry 


VR  Uniform  initial  impulse  velocity  received  by  mesh 

points  (M,N)  in  the  intervals  MI  < M<MF  § N1  i N < NF. 
[L/T] . 

NV  Number  of  mesh  point  receiving  nonzero  initial  impulse 

velocity  other  than  uniform  velocity  VR. 


Card  16* 


Each  card  16  gives  data  for  each  mesh  point  receiving 
nonuniform  initial  impulse  velocity;  hence  total  number 
o±  card  16’s  must  equal  NV. 


M , N Mesh  numbers  of  point  receiving  initial  impul se 

velocity  V other  than  uniform  velocity  VR. 

V Initial  impulse  velocity  at  mesh  point  (M,N)  [L/T] , 

3.3  Array  Size,  Memory  Requirements  and  Computation  Times 

Often,  the  size  of  arrays  must  be  adjusted  in  order  for  the  program 
to  accommodate  a new  problem.  Such  adjustments  entail  changing  DIMENSION 
and  COMMON  statements  to  assure  that  array  size  equals  or  exceeds  the 
maximum  values  of  array  indices  required  by  the  problem. 

The  maximum  values  of  array  indices  are  easily  determined  from  the 
input  data,  as  shall  now  be  shown.  First,  denote  the  maximum  values  of 
the  indices  M,N,K,J  and  KJ  (see  Appendix  C.l  for  their  definitions)  by 
appending  the  subscript  "max"  to  each.  Then  M and  N depend  on  tae 

j 2 lUwA 

number  of  mesh  intervals  in  the  i and  n directions  (specified  or.  !.,put 
card  2)  and  the  boundary  conditions  along  edges  3 and  2 respective!'/ 

(card  4) : 


(MESH  + 2 ; IBCE3  = 1,3 
max  (MESH  + 3 ; IBCE3  = 2 . 


(3.1) 


/ NMESH  + 1 ; IBCE2  = 1,3 
} NMESH  + 2 ; IBCE2  = 2 . 


(3.2) 


Moreover,  Kmax  equals  the  number  of  layers  into  which  the  shell  is 
divided  (card  2) : 


K = LAYER  , 
max 


* Cards  15  and  16  omitted  if  ;.0AD  = 1 or  NCONT  > 0. 


(3.3) 


^max  e<*ua*s  t*ie  nua^er  of  breaks  in  the  polygonal  approximation  to  the 
loading  curve  (Card  6) : 


J 

max 


= NSFL, 


(3.4) 


and  KJ  is  the  product  of  K „ and  J : 
max  max  max 


KJ  = LAYER  * NSFL  . (3.5) 

max  v 

The  arrays  affected  by  changes  in  the  maximum  values  of  these  indices 
are  listed  in  Appendices  C.2  and  C.4.  The  maximum  values  of  the  remaining 
array  indices  usually  need  no  adjusting  because  they  are  sufficiently 
large  for  most  problems. 

The  storage  of  arrays  constitutes  the  major  portion  of  the  memory 
requirements  of  REPSIL,  with  the  rest  of  the  memory  requirements  used 
to  store  the  remainder  of  the  program.  The  memory  needed  to  store  the 
remainder  is  more  or  less  fixed  and  depends  on  the  compiler  that  the 
computer  uses;  for  example,  the  BRLESC  computer  at  the  BRL  uses  between 
11,000  and  12,000  words  for  this  purpose.  The  memory  required. to  store 
the  arrays  depends  on  their  size,  specified  by  prescribing  the  maximum 
values  of  array  indicies,  and  hence  may  change  with  the  problem  being 
solved. 


It  is  useful  to  have  an  estimate  of  the  memory  required  by  a 

problem,  to  see  if  the  computer  can  accommodate  it.  For  an  estimate  it 

is  sufficient  to  consider  only  the  large  arrays  — the  two  and  three 

dimensional  arrays.  A count  of  these  arrays,  listed  in  Appendices  C.2 

and  C.4,  shows  that  there  are  26  two  dimensional  (M,N)  arrays,  3 three 

dimensional  (M,N,KJ)  arrays  and  1 three  dimensional  (M,N,K)  array.  Hence, 

a problem  whose  maximum  index  values  are  M „ . N , K and  KJ  = 

r max  max  max  max 


K x J 
max . max 


will  use 


S.  ■ M y N x (26 
A max  max 


+ K x (3  x j + 
max  *■  max 


D) 


(3.6) 


words  of  memory  to  store  these  arrays . An  estimate  on  the  amount  of 
memory  a given  computer  uses  to  store  the  remainder  of  the  program 
is  most  easily  obtained  as  the  difference  between  the  total  memory 
used  on  a given  problem  and  for  the  given  problem.  If  this  difference 

is  SR,  then  Tor  any  new  problem  a good  estimate  of  the  total  number  of 

words  of  memory  needed  is 

ST  - SR  * SA  * SR  * Mmax  “ x <26  * >W  x <3  * J*ax  * 1J)  ' <3'7) 
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can  also  be  used  to 


The  maximum  values  M , N , K and  J 

*niax»  max  if  ax  max 

estimate  the  time  a given  problem  will  take  on  a computer.  This  follows 

from  the  fact  that  the  computer  takes  approximately  the  same  time  to 

solve  the  finite  difference  scheme  for  a given  substress  at  a given 

layer  and  mesh  point;  hence,  the  total  computation  time  is  roughly 

proportional  to  the  product  of  the  number  of  substresses  J , of  layers 

K , of  mesh  points  M *N  and  the  total  number  of  time  steps 
max  max  max 


Nt  a MAXC  - NCONT  . 


(3.8) 


Therefore,  once  the  time  T*  taken  by  the  computer  to  solve  a problem 

with  the  values  J*  K*  . M*  , N*  and  N*  is  established, 
max  max  max  max  t 

then  an  estimate  of  the  time  T for  any  other  problem  with  the  values 


/ , iv  , , N and  N„  is  given  by  the  ratio 

max’  max'  max’  max  t * 


M 


T 

T* 


M x N xj  xK  x N 
max  max  max  max  t 


M*  x N*  x J*  x K*  x 
max  max  max  max 


(3.9) 


This  relation  only  gives  approximate  times  because  it  neglects  such 
factors  as  the  operations  at  boundary  point  differing  from  those  at 
interior  points,  the  different  number  of  interations  for  the  plastic 
stress  at  different  mesh  points,  the  compile  times  not  being  proportional. 
However,  the  relation  serves  as  a useful  rule-of-thumb,  giving  over- 
estimates as  the  number  of  mesh  intervals  increases. 

3.4  Continuation  of  Problem  (Restart) 

Every  NRITE  number  of  time  steps  information  is  written  on  the 
restart  tape  about  the  current  state  of  the  solution.  As  discussed  in 
Chapter  2,  this  information  is  sufficient  for  the  program  to  continue 
the  solution  from  any  of  these  prescribed  time  steps;  such  a continuation 
is  called  a restart.  The  restart  of  a problem  entails  certain  necessary, 
advisable  and  permissible  changes  in  the  input  data,  as  follow. 

Necessary  changes  are  changes  without  which  the  restart  problem 
cannot  be  solved.  These  changes  are  confined  to  Card  3.  The  initial 
time  step  NCONT  must  be  set  equal  to  some  multiple  of  NRITE  at  which  time 
step  there  is  written  information  on  the  restart  tape;  this  is  usually 
chosen  as  the  last  time  step  on  the  tape.  Also,  the  last  time  step 
MAXC  must  be  changed  to  a value  greater  than  NCONT. 

Advisable  changes  are  changes  that  either  reduce  the  amount  of 
input  data  or  assure  meaningful  output  data.  First,  Cards  15  and  16 
may  be  omitted.  Second,  the  time  steps  specified  on  Cards  9,  10,  and  11 
at  which  output  data  is  collected  should  be  changed  so  as  to  fall  within 
the  new  interval  between  NCONT  and  MXC. 
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Permissible  changes  are  changes  that  affect  the  collecting  of  restart 
and  output  data  or  the  functioning  of  the  damping  operations.  On  Card 
3 NR1TE  may  be  changed  so  that  restart  information  is  collected  at  a 
different  interval.  Also,  on  Card  8 the  interval  between  the  times 
at  which  surface  strains  are  printed  may  be  changed  by  altering  NPRINT 
and  a different  selection  of  arrays  may  be  printed  by  altering  JCHK(J). 
On  Card  5,  DAMPF  and  DFACT,  which  control  damping  operations,  may  be 
freely  changed.  Also,  if  LPRFSS  and  MDAMP  were  greater  than  the  new 
value  of  NCONT,  they  may  be  changed. 

Finally,  a few  words  of  caution.  If  it  is  planned  to  continue  a 
problem,  provide  a tape  to  collect  the  restart  information;  otherwise, 
omit  the  restart  tape.  Any  changes  in  the  input  data  that  affect  the 
site  of  arrays  should  never  be  made.  Lastly,  note  that  there  is  no 
restriction  on  repeatedly  continuing  the  solution  of  a problem. 


4.  DESCRIPTION  OF  OUTPUT 

REPS I L outputs  the  results  of  calculations  in  two  forms:  printed 

output  and  plotted  output . This  chapter  describes  the  various  output 
options  available  and  how  the^e  are  controlled  through  the  input  data. 
Reference  will  be  made  to  tables  and  figures  in  Chapter  5 as  samples  of 
printed  and  plotted  output. 

4.1  Printed  Output 

4.1.1  Input  Data.  The  printed  output  begins  with  a title  page 
reitc:  attp.*  the  input  data  and  giving  the  critical  At  resulting  from 
the  RiiPSll  stability  check,  see  Tables  5.5  and  5.15.  If  LOAD  = 0 or  -1, 
the  uniform  initial  impulse  velocity  specified  on  Cards  15  and  16  will  be 
printed  out  next.  Table  5.1b.  There  follows  a print  of  the  initial  values 
of  the  Cartesian  coordinates  Yi  and  pressure  P at  all  mesh  intersections 
(M,NJ . Table  5.4  and  5.16  give  samples  of  these  arrays  at  select  values 
of  M.  The  user  need  not  request  any  of  the  above  prints;  they  are  auto- 
matically produced  by  REPSIL  for  any  initial  run.  For  a restart  run  only 
the  title  page  is  printed. 

.2  Displacement  Increment,  Cartesian  Coordinate,  Pressure  and 
Surface  .Normal  Arrays.  By  setting  the  input  variables  JCHk(I)  = 1 for 
1 * 1,*,3  (see  Section  3.2,  Card  8),  the  values  of  the  displacement 
increments  Ui,  Cartesian  coordinates  Yi  and  pressures  P,  and  surface 
noix.il : SNi  at  every  intersection  (M,N)  are  printed  at  each  NCYCH(.J) 
time  st>»p  (Card  9).  Samples  of  these  arrays  at  select  values  of  M 
appear  j.r.  Tables  5.5  - 5.7,  5.9  - 5.11  and  5.17  - 5.22.  Notice  that 
the  d placement  increments  are  for  the  time  increment  just  preceding 
time  step  NCYCH(J) . 
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4.1.3  Energy  Balance.  The  program  prints  the  values  of  the  kinetic 
energy  C1NET,  strain  energy  STREN,  plastic  work  PLAST  and  external  work 
TNRG  for  the  entire  shell  every  NCYCH(J)  time  steps  (Section  3.2,  Card  9), 
as  shown  in  Tables  5.13  and  5.23. 

4.1.4  stress  Subincrement  Array.  The  stress  subincrement  array 
LMAT  (M,N,K)  is  printed  every  JCYNLP(J)  time  steps  (Section  3.2,  Card 
10),  see  Tables  5.8,  5.12,  5.18,  5.20  and  5.22.  The  value  of  LMAT  at  the 
location  (M,N,K)  is  an  approximate  measure  of  the  amount  of  plasticity 
occurring  there  during  the  given  time  interval:  if  LMAT  * 0 the  stress 
increment  lies  within  the  yield  surface  and,  hence,  is  elastic;  otherwise 
LMAT  equal  the  number  of  stress  annuli  outside  the  yield  surface  traversed 
by  the  stress  increment,  see  Appendix  B for  a detailed  description. 

4.1.5  Surface  Strains.  The  surface  strains  EPSSI(I),  EPSS2(I), 
EPSANB(I)  and  EPSANG(I)  at  locations  specified  on  input  Card  13  are  printed 
every  N'PRINT  elapsed  time  steps  (Card  8).  These  strains,  shown  in  Tables 
5.13  and  5.23,  simulate  the  reading  of  strain  gages  alined  at  the  angles 

indicated  there  relative  to  the  n*  direction,  see  also  Figure  3.5. 

4.1.6  Error  Messages.  An  inability  to  satisfactorily  calculate  a 
plastic  stress  increment  at  a location  (M,N,K)  results  in  an  error  print, 
wherein  the  values  of  the  quantities  involved  in  computing  the  stress 

at  this  location  are  printed  and  the  calculations  terminate.  This  print 
occurs  for  two  reasons:  either  the  lead  coefficient  AA  in  the  quadratic 

equation  for  TAMBDA  is  negative  or  the  values  of  TAMBDA  continue  to 
remain  complex  even  after  the  use  of  100  stress  subdivision.  The  reasons 
that  both  these  results  are  unacceptable  and  do  not  permit  the  continuation 
of  the  solution  are  given  in  [3;  Sect  III]. 

4.2  Plotted  Output 

The  plotted  output  is  generated  by  a separate  plotting  program 
described  in  Appendix  D.  This  program  works  from  a tape  generated  by 
REPSIL  on  which  plotting  data  is  stored.  The  program  employs  the  Cal 
Comp  Standard  Plotting  Package  SCOOP.  The  plots  shown  in  this  report 
are  generated  by  the  Cal  Corap  Model  780  Plotter, 

4.2.1  Isometric  and  Cross-sectional  Plots.  REPSIL  stores  on  tape  the 
Cartesian  coordinate  array  Yi  at  the  initial  time  step  and  at  subsequent 
time  steps  as  specified  by  the  values  of  NC3DP(J)  on  Card  11.  From  these 
data  the  plotting  program  generates  two  types  of  plots  at  each  of  these 
time  step:  an  isometric  drawing  of  the  distorted  image  of  the  finite 
difference  mesh  passing  through  the  middle  surface;  and  a pair  of  cross- 
sectional  drawing  through  the  Yl  * 0 symmetry  plane  and  a plane  normal 
to  the  Y2  axis,  as  specified  in  the  input  to  the  plotting  program.  The 
scale  of  the  drawing  and  a factor  to  magnify  the  displacements  from  the 
initial  position  must  also  be  specified  as  input.  These  plots  are 
illustrated  by  Figures  5.3  and  5.8.  The  zeroth  time  step  plots  are 
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automatically  generated  without  the  user  requesting  them.  Notice  that 
these  plots  print  the  input  data:  the  mesh  number  N of  the  crossection, 
the  scale  and  the  magnification  factor. 

4.2.2  Energy,  Displacement  and  Surface  Strain  Histories.  At  every  time 
step  REPSIL  also  stores  on  tape  three  groups  of  data:  the  kinetic 

energy  CINET,  strain  energy  STREN,  plastic  work  PLAST,  external  work  TNRG 
and,  when  the  damping  procedure  is  used,  the  damping  work  TDAMP;  the 
components  of  the  displacement  at  the  location  specified  on  Card  12; 

1 2 

and  the  elongational  surface  strains  in  the  n and  n coordinate  direction 
at  the  location  specified  on  Card  13. 

The  plotting  program,  using  the  first  group  of  data,  plots  a time 
history  of  the  balance  of  energies  during  deformation,  as  illustrated 
in  Figures  5.4  and  5.9;  notice  that  graph  b of  Figure  5.9  is  an  enlarg- 
ement of  the  last  400  microseconds  of  graph  a to  bring  out  the  details 
of  the  energy  balance  during  damping  operations.  In  Figures  5.4  and  5.9a 
the  top  line  represents  the  external  work,  with  that  in  Figure  5.4  being 
due  to  a pressure  loading  and  in  Figure  5.9a  due  to  an  initial  impulse 
velocity;  in  Figure  5.9b  the  external  work  line  falls  of  the  graph.  In 
all  three  graphs,  the  bottom  line  is  the  kinetic  energy  and  the  line 
second  from  the  bottom  is  the  total  energy  of  the  shell.  Hence,  the 
difference  between  the  bottom  line  and  the  second  from  bottom  line 
represents  the  strain  energy  and  the  difference  between  the  top  line 
and  the  second  from  bottom  line  represents  the  energy  dissipated. 

When  damping  operations  are  not  used,  as  in  Figure  5.4  and  the  first 
405  microseconds  in  Figure  5.9,  the  energy  dissipated  is  solely  due  to 
the  plastic  work.  However  at  the  inception  of  the  damping  procedure 
f4QS  microseconds  in  Figure  5.9b)  a third  line  appears  dividing  the 
energy  dissipated  into  two  parts:  the  plastic  work  represented  by  the 
difference  between  the  top  line  and  this  new  line  and  the  damping  work 
represented  by  the  remaining  difference.* 

The  second  group  of  data  is  used  by  the  plotting  program  to  plot 
a time  history  of  the  components  of  displacement  at  a given  location, 
as  illustrated  in  Figures  5.5  and  5.10.  The  location  as  specified  in 
the  REPSIL  input  is  printed  with  the  plot. 


* In  principle,  the  plastic  work  and  the  damping  work  are  monotone 
increasing  function  of  time  and  when  the  external  work  is  constant 
the  total  energy  is  monotone  decreasing.  That  this  is  only  approximately 
true  of  Figure  5.9b  is  a consequence  of  the  numerical  inaccuracy  of 
the  finite  difference  solution.  For  the  same  reason,  in  purely  elastic 
problems  it  is  found  that  the  total  energy  oscillates  about  the  external 
work  rather  than  coinciding.  However,  an  excessive  rise  of  the  total 
energ,  cv-.-r  the  external  work  is  usually  an  indication  that  something  is 
going  wrong  with  the  solution,  e.g.  too  large  a time  increment  leading 
to  a numerical  instability. 
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The  third  group  is  used  to  plot  time  histories  of  the  elongational 

1 2 

strains  on  the  surface  of  the  shell  in  the  n and  n coordinate 
directions  (see  Figures  3.6  >3.8  for  the  coordinate  directions  of  the 
various  geometries  employe , as  well  as  Figure  3.5)  at  prescribed 
locations.  These  plots  are  illustrated  by  Figures  5.6  and  5.11.  with 

the  solid  line  being  the  strain  in  the  n*  direction  and  the  dash  line 

2 

the  strain  in  the  n direction.  The  locations  as  specified  in  REPSIL, 
including  which  bounding  surface,  are  reproduced  on  the  plots.  A 
maximum  of  6 locations  can  be  plotted  at  present. 


5.  EXAMPLE  PROBLEMS 

This  chapter  demonstrates  the  use  of  REPSIL  to  solve  two  typical 
shell  problems.  Correct  preparation  of  input  data,  including  proper 
implementation  of  various  options  available  in  REPSIL  is  illustrated. 
Portions  of  the  printed  and  plotted  output  are  displayed.  These  serve 
as  checks  on  the  proper  functioning  of  the  code,  especially  useful  to 
users  adapting  REPSIL  to  their  computers.  For  reasons  of  economy,  no 
attempt  is  made  to  discuss  the  accuracy  or  significance  of  results. 

5.1  Example  1;  Pressure  Loaded  Flat  Plate 

The  first  problem  involves  finding  the  deformation  history  of  a 
simple-supported,  rectangular,  steel  plate  subjected  to  loads  resulting 
from  the  detonation  of  an  explosive  charge.  Figure  5.1  shows  the 
dimensions  and  orientation  of  the  plate  and  charge.  This  example 
illustrates  the  use  of  the  following  REPSIL  options. 

•Flat  plate  initial  geometry 
•Analytically  specified  pressure  loading 
•Hinged  edge  and  symmetry  edge  boundaries 

• Strain  hardening  - strain  rate  dependent  material  behavior 

• Problem  restart  or  continuation 

The  material  properties  of  the  steel  in  the  elastic  range  are: 

Young's  modulus  E ■ 30  x 106  psi 

Poisson's  ratio  v * 0.3  2 

Mass  density  p » 7.3235  x 10  * — — 

in4 

In  the  plastic  range  the  steel  is  assumed  to  strain  harden  in  a strain 
rate  dependent  manner.  This  behavior  is  approximated  by  using  a 3 
substress  model  with  the  following  values  of  the  parameters, 


77 


HINGED  EDGE 


ORIGIN* 


SYMMETRY  EDGE 


Figure  5,i  Geometry  for  Example  Probl 


40" 


i 


•SHOCK  FRONT 


1 


» 78,000  psi 
0,  ■ 120,000  psi 
* 180,000  psi 


■ .0026  in/ in 
e2  ■ .0082  in/in 
e3  ■ .0482  in/ in 


* 40  in/in>sec  P^«5 

d,  ■ 400  in/in-sec  P,»3 

* * 

dj  ■ 4000  in/in-sec  P^«i 


Figure  5.2  shows  the  resulting  polygonal  approximations  to  the  uniaxial 
loading  curves  at  four  strain  rate  levels. 

The  pressure  loading  is  simulated  by  programming  into  subroutine 
PRESS  the  pressure  relation 


P (m,n) 


!0;  for  t < t 

225  x 24465. 
225  + ri  Cm, 


5 -13000 (t-ta) 

n) 


for  t > ta, 


where  r (ra,n)  is  the  distance  from  the  center  of  the  plate  to  the  mesh 
intersection  (m,n)  and 


t . /»5  ♦ r2  (m,n)  - 15 

▼ 1 i a Artn 


144000 


is  the  arrival  time  of  the  shock  front  at  (m,n). 

Taking  advantage  of  the  two  fold  symmetry  of  the  problem,  only  the 
lower  right  quarter  of  the  plate,  as  shown  in  Figure  5,1,  is  treated. 
Consequently,  edges  1 and  2 are  symmetry  boundaries  and  edges  3 and  4 
hinged  boundaries  (compare  with  Figures  3.1  and  3.6).  Also,  only  the 
half  width  and  half  length  of  the  plate  are  prescribed  as  input  dimensions. 
The  problem  uses  a 20  x 32  square  mesh  and  4 layers  through  the  thickness. 
A time  increment  of  4 microseconds  is  prescribed,  a figure  well  below  the 
critical  time  increment  predicted  by  the  REPSIL  stability  criteria 
(see  Table  5.3) . 

The  problem  is  solved  in  three  successive  runs.  The  initial  run 
is  set  for  a maximum  of  400  time  steps,  giving  a solution  for  the  first 
loOQ  microseconds.  Table  5.1  gives  the  input  for  this  run  in  the  same 
order  as  outlined  in  Table  3.1.  The  first  restart  or  continuation  run 
is  prescribed  for  the  next  400  time  step.  Only  the  input  data  on  Cards 
3,  9,  10  and  11  are  changed,  as  shown  in  Table  5.2.  The  second  restart 
run  continues  the  solution  389  time  steps  further  and  requires  changes 
in  Card  3,  9,  10  and  11  as  before. 
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STRAIN 


Figaro  5.2  Polygonal  Approximations  to  Uniaxial  Loading  Curves  at  Four 
Levels  of  Strain  Rate 


Table  5.1  Input  Data  Cards  for  Initial  Run  of  Flat  Plate  Problem 

Card  1 EXAMPLE  1 FLAT  PLATE  WITH  PRESSURE  LOADING 

Card  2 20  32  4 . 100000E  01 

Card  3 400  0 100  .400000E-05 

Card  4 2233 

Card  5 1 1500  1500  0.0  0.0 

Card  6 . 300000E  08  .300000E  00  .780000E  05  .732350E-03  .100000E  00 


Card 

7a 

78000.0 

.0026 

40.0 

5.0 

Card 

7b 

120000.0 

.0082 

400.0 

3.0 

Card 

7c 

180000.0 

.0482 

4000.0 

1.0 

Card 

8 

100 

1 

1 1 

Card 

9 

4 

100 

200  300 

400 

Card 

10 

4 

100 

200  300 

400 

Card 

11 

4 

100 

200  300 

400 

Card 

12 

0.0 

32.0 

6 

Card 

13a 

0.0 

32.0 

45.0 

22.5 

0 

Card 

13b 

0.0 

32.0 

45.0 

22.5 

1 

Card 

13c 

0.0 

0.0 

45.0 

22.5 

0 

Card 

13d 

0.0 

0.0 

45.0 

22.5 

1 

Card 

13e 

20.0 

32.0 

45,0 

22.5 

0 

Card 

13f 

20.0 

32.0 

45.0 

22.5 

1 

Cara 

14 

32.0 

20.0 

•able  5 . 2 Input  Data  Cards  Changed  for  the  First  Restart  Run 


Card 

3 

800 

400 

100 

.400000E-05 

Card 

9 

4 

500 

600 

700 

800 

Card 

10 

4 

500 

600 

700 

800 

Card 

il 

4 

500 

600 

700 

800 
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Sample  listings  of  the  printed  output  for  the  initial  run  are 
given  in  Tables  5.3  - 5.13.  The  program  prints  the  Ui  (M,N),  Yi  (M,N) . 
SNi  (M, N;  arrays  over  the  entire  range  of  (M,N) , of  which  Tables  5.4  - 
5.7  and  5.9  - 5.11  give  the  values  for  M * 2,10  and  1 < N < 33  (i.e.  the 

values  along  y1  ■ 0 and  y1  ■ 8,  see  Figure  5.1).  Also  the  program  prints 
the  LMAT  fM,N,K)  array  at  every  station  through  the  thickness,  of  which 
Tables  5.0  and  5.12  give  the  array  values  at  K ■ 3,4.  Table  5.13  shows 
the  surface  strains  and  energy  balance  prints. 

Figures  5.3  - 5.6  present  examples  of  the  plotted  output  as  obtained 
on  the  Cal  Comp  Model  780  Plotter  using  the  plotting  program  described 
in  Appendix  E.  Notice  that  the  plots  with  time  as  the  abscissa.  Figures 
5.4  - 5.6,  are  for  the  initial  run  plus  the  two  successive  restarts,  an 
automatic  feature  of  the  plotting  program. 
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Tabl#  $.3  First  P«4«  of  Printad  Output  >,iw rising  tha  Input  Dsts  and 
Rssults  of  Stabla  Tiaa  Incranant  Chack 

•Sl  assail  rent 

example  1 fiat  slats  with  pressure  loading 

te  his mss  in  ths  s tai  direction  (OStaj  »o.tooooof  on 

s j meshes  in  ths  sta i Diasfir.,»N  iditaj  Ao.tooooob  on 

SINDINO  TIMS  INCREMENT*  0,Sl«364t-8» 

MEMBRANE  TIMS  INCREMENT*  8,4465536*05 
INSUT  T | Ml  INCREMENT*  fl,400000S*0* 

T|H6  INCREMENT  USED  BY  RPPSllt  8.4800086-05 

YOUNO’S  MODULUS  *6 i 3000006  04 

POISSON'S  SAT I a *8.3880081  88  YtEl'D  STRESS  *0,780000F  05 

MASS  DSNSIT*  *0 . 7323588*03  THICKNESS  *0.1000005  01 

STAST  AT  TIMS  STSS  0 

riNAL  time  STSS  400 

SUSP  ACE  STRAINS  EVES*  100  TIME  step 

PESTAST  HSITS  EVERY  loo  TIME  STEP 


laysh  • 
uo*n  ■ 


nstRn  » * 

tsaESS  * 1500 


■OUNOASV  C8ND I T I OnS 
1/2/3  • ClAMSSD/SYMMSTSY/MINOSO 
ED0E1  • 2 

SD0S2  * 2 

EDQE3  « 3 

SDQS4  « 3 

PSINT  OPTION  CONTROL  CARD 
0/1  ■ NO  PR  t NT /PS  I NT 
1 DISPLACEMENT  INCREMENTS 
1 CASTESIAN  COORDINATES'  »SESSU»6 
1 SUSPaCE  NORMAL  VECTOR  COMPONENTS 

print  information  at  the  foliowinq  time  steps 

100  200  300  480 

PRINT  l MATRIX  (LMAT)  at  the  fOllohino  time  STRmS 
100  200  300  400 

s-d  plots  fcr  the  following  time  steps 

100  200  308  480 

CONSTITUTIVE  RELATION  El ASTOPL AST  1 C-MORK  HAKQENING-STRAIN  R*TP  DEPENDENT 

stress-strain  APPROXIMATION  HAS  3 S..RLAYERS 

STRESS-STRAIN  AND  STRAIN  sate  PARNMETERS 
J SSIOIJ)  SEPS(J)  DSR(J>  l/PSRU) 

1 7,80000081:  04  2.4808080E-83  A.0008000E  01  2 . OOUOOOOE-Ol 

2 1 . 2080808F  OS  8 . 2O00008E-83  A'.OOOOOOOE  02  4 . 333333  <t:-0l 

3 1,80000086  05  4 . 8208080E-8?  *',00080006  03  1,00000086  00 


STaST  DAMPING  AFTER  TIME  STEP  1500  T I 4b  *0,6000E-02 
DAMpr  *0.00081  88  DFaCT  *0. 8000b  Oo 
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Table  S.4  Saaple  of  Initial  Values  of  Cartesian  Coordinates  and 
Pressure  Arrays  for  M > 2 and  10 


INITIAL  CASTS  MAN  COCAOIMATES  SM91UM 

N N TIIHtNI  VIIN.NI  7SIN.N)  AIN.NI 

> I 0.3000000000000000S  00  O.OOOCOOOCOOGOOOOOE  00  0.00000000000000002  00  O.OOOOOOOOOCCCCCCOE  CO 

2 O.OOOOOCOOCOOOOOOOE  00  0.1 00 0000000000000 E 01  O.OOOOOCOOOOOOOOOOE  00  O.OCCOOOOOOOCCOCQCE  CO 

9 O.COOOOOOOOOOOOOOOE  00  O.IOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOCOOOCCCOOOOE  DO 

A O.OOOOOOOOOOOOOOOOE  OC  O.IOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOOOOCOCOOE  00 

9 O.OOOOOOOOOOOOOOOOE  00  O.AOOOOOOOOOOOOOOOE  01  O.OOOOOOOOCOOOOOOOE  03  O.OOCOOOOOCCCOOCCOE  CO 

A O.OOOOOCOOOOOOOOOOE  00  O.OOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOCOOOOOOE  00  O.CCCOOOOOOCCCOCCOE  00 

T O.OOOOOOOOOOOOOOOOE  00  O.AOOOOOOOOCDOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOOCOOOOOOE  DO 

0 O.OOOOOOOOOOOOOOOOE  00  0. 7000000000000000 E 01  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOOOOCCCCCCOE  CO 

A O.OOOOOCOOOOOOOOOOE  00  O.AOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOOOCCCCCCCCE  CO 

10  O.OOOOOCOOOOOOOOOOE  00  O.OOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OCCOOOOOCCCCCCCOE  CO 

11  O.OOOOOOOOOOCOOOOOE  00  O.IOOOOOOOOOOOOOOOE  02  O.OOCOOOOOOOOOOOOOE  00  O.OOOOOOOOOOOCOCOOE  00 

12  O.OOOOOOOOOOOOOOOOE  00  O.llOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOOOOOCCOCOOE  00 

IS  O.OOOOOCOOCOOOOOOOE  00  0.1200000000000000k  02  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOOCCCCCCCCOE  CO 

1A  O.OOOOOCOOCOOOOOOOE  00  0.1300000000000000E  02  O.OOOOOOOOOOCOOOOOE  00  O.OCOOOOOOOCCCOCOOf  00 

19  O.OOOOOOOOOOOOOOOOE  00  O.IACOOOOOOOOOOOOOE  02  O.OOOOOOOOOOCOOOOOE  00  O.OOOOOOOOOOOCOCOOE  DO 

1A  O.OOOOOCOOCOOOOOOOE  00  0.1 900000000000000E  02  O.OOOOOOOOOOCOOOOOE  CO  O.OCCOOOOOCCCCOCOOE  CO 

IT  O.OOOOOOOOOOOOOOOOE  00  0. 1 AOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOCOOOOOE  00  C.OCOCOOOOOOOCOCCOE  CO 

1A  O.OOOOOOOOOOOOOOOOE  00  0.1700000000000000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOOOCCOCOOE  CO 

i«  o.ooooooooooooooooe  no  o 1 aooooooooooooooe  02  o.ooooooooooooooooe  00  o.oooooooococcococe  00 

20  O.OOOOOOOOOOCOOOOOE  00  0.1 AOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOCOOOOOE  00  o.ocoooooococcccooe  00 

21  O.OOOOOOOOOOOOOOOOE  00  O.2OOOCOOOOOOOOOOOE  02  O.OOOOOOODOOCOOOOOE  00  O.OCCOOOOOOCOCOCOOE  CO 

22  O.OOOOOOOOOOOOOOOOE  00  0.2 lOOOOOOOOOOOOOOfc  02  o.ooooooooooooooooe  no  O.OOOOOOOOOCCCOCOOE  CO 

22  O.OOOOOOOOOOOOOOOOE  00  0.220C000000003000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOCCCCCGOOE  00 

2A  O.OOOOOOOOOOOOOOOOE  00  O.ESnoOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.OCOOCOOOOCOCOCCOE  DO 

29  O.OOOOOOOOOOOOOOOOE  00  0. 2 AOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOCOOOOOE  00  O.OCOOOOOOOCCCCCCOE  CO 

2A  O.OOOOOOOOOOOOCOOOE  00  0.2 500000000000000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOCCCCCCCOE  CO 

27  O.OOOOOCOOOOOOOOOOE  00  0.2AOOCOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOOOCCCCCCOOE  OC 

2*  O.OOOOOCOOOOCOOOOOE  00  0.2700000000000000E  02  O.OOCOOOOOOOOOOOOOE  00  O.OOOOOOOOCCCCOCOOE  cc 

29  O.DOOOOOOOOOOOOOOOE  00  0.2SOOOOOCOOOOOOOOE  02  0 OOOOGOOOOOOOOOOOE  00  O.COOOOOOOUCOCCCCOE  CO 

50  O.OOOOOCOOOOOOOOOOE  00  0.2900000000000000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOCCCCOCOOE  no 

51  O.OOOOOOOOOCOOOOOOE  00  0.3000000000000000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOCOOOCCCOCOOE  CO 

32  O.DOQOOCOOOOOOOOOOE  00  O.llOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOCOOE  00  O.OCOOOOOOCCCCOCOOE  CO 

S3  O.OOOOOCOOCOCOOOOOE  00  0. 3200000000000CC3E  02  0. 0000000000 OOOOOOE  00  O.2AAA340CCCCC0C0OE  0* 

io  i o. boooocoocoooooooe  oi  o.ooooooooooooooooE  oo  o.ocoooooooorcoooo';  oo  o.ccooooocccccccooe  cc 

2 0.800O3C000GC00000E  01  0.100C00000000300QE  01  C.OOOOOOOOOOOOOOOOt  00  O.OCOOOOOOOCCCCCCCE  CO 

3 o. 90000C00 ooooooooe  oi  0.2000000000000000E  01  O.OCOOOOOOOOOOOODOE  00  O.OOCOOOOOCCCCCCCCE  CO 

A 3.8UOOOOOOOOCOOOOOC  01  O.IOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOOOOOE  00  O.OCOOOOCOCCCCOCCCE  CO 

9 0. 800000000000000 OF  01  O.AOOOOOOOOOOOOOOOE  01  O.OOOOOOOCOOOOOOOOE  00  O.OGOOOOOCCCCCCCOCE  cc 

A 0.8000000000000000F  01  O.IOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOOOUCDOE  00  O.OCCOOOOOCCCCCCCCE  CO 

7 0. lOOOOCOOOOOOOOOOE  01  O.AOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOCOOOOOE  no  O.CCOOOOOOCCCCCCCCE  00 

8 O.AOOOOOOOOOOOOOOOE  Cl  0.7000000000000000E  01  O.OOOOOOCCOOOOOCDOE  00  0. OOOOOOOOC  OCOCOOE  00 

9 O.SOOOOOOOOOCOOCnoE  01  O.AOOOOOOOOOOOOOOOE  01  O.OOCOOOOOOOOOOOOOE  oo  o.ococogcoccccoccoe  oo 

10  O.AOOOOOCOnoCOCOOOE  01  O.AOOOOOOOOOOOOOOOE  01  O.OOOOOOOOOOCOOOOOE  00  O.CCCOCCCCCCCCCCCCE  CO 

11  O.AOOOOOCOOOCOOOOOE  01  O.IOOOOOOOOOOOOOOOE  02  O.OOOOOOOCOOCOOGOOE  00  O.CCCOOCOCCCCCCCCCE  JO 

12  O.AOOOOOOOOOOOOOOOF  01  0. 1 lOOOOOOOOOOCOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.COOOOUOOOCCCOCOOE  OC 

IS  0. 80000 OOOOOOOOOGOE  01  0.1200000030000000E  02  0.0000000003000000E  00  O.OCOOOOOOOCCCCCCCE  00 

1A  0. ACDOOOOOOOOOOOOOE  01  O.ISOCSOOOOOOOOOOOE  02  O.OOOOOOOCOOOOOCDOE  00  O.CCCOCOCCCCCCC CCCE  CC 

19  O.AOOOOOOOOOOOOOOOE  01  U. 1 AOOOOOOOOOOOOOOE  02  O.OOOOOOCCOOCOOOOOE  00  O.OCOOOOOOOCCCOCOOE  00 

l*  o. sooooooo joooocooe  oi  o. i 9Q000000000 oo ooe  02  o.onooov jooocooooos  oo  o.ocooooooccccocooe  oc 

It  0. SOOOOOOOOOOOCOOOF  01  0. 1600000000000 JOOE  02  O.OOOOOOOOCOOOOOOOE  CO  O.OCOOOOOOOCCCOCCCE  CC 

18  O.AOOOOCOOOOCOOOOOE  01  0. 1 700000000000000E  02  O.OOCOOOOOOOCOOOCOE  00  O.CCCCCCCCCCCCCCCCE  CO 

19  0.3C03000000000000E  01  0.1 800000000 OOOOOOE  02  O.OOOOOOOOOOCOOOOOE  00  O.CCCOOOOOCCCCOCOOE  oc 

20  0.8000000000000000E  01  0. 1 9000000 OOOC 0000 E 02  O.OOCOOOOOOOOOOOOOE  00  O.OODOOOOOCCCCCCOOF  cc 

21  0. AOOOOCOOOOCOOGOOE  01  O.IOOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.CCCCOOOCCCCCCCCCE  CC 

22  O.SOOOOOOOCOCOOOOOE  01  0.2100000000000000E  02  0. OOOOOOOOOOCOOCOOt  00  O.GCCCCOCCCCCCCCCCE  cc 

23  0.8000000000000000E  01  0.220000OCO00C0C00E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOOOOOCCCCCOOE  cc 

2A  O.OOOOOOOOOOCOOOOOE  01  0.2300000000000000E  02  O.OOOOOOOOOOOOOOOOE  00  O.OOOOOCCOOCCCCCOOE  00 

23  0.8000000000000000F  01  0.2 AOOOOOOOOOOOOOOE  02  O.OOCOOOOOOOOOOOOOE  00  O.CCCCOOOCCCCCCCCCE  CO 

2A  O.AOOOOOOOOOOOOOOOE  01  0.290COOOOOOOCOCOOE  02  O.OOOOOCDCOOCnoOOOc  00  O.OCCOCOOOOCCCOCOOE  CO 

2T  O.aOOOOOOOObOOCOOOE  01  0.2 AOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  V COOOOOOCCCCCCCCOE  cc 

28  O.AOOOOOOOOOOOOOOOF  01  0. 270000000000'*  JOE  02  O.OOOOOOOOOOOOOOOOE  00  O.o.CDCCOOCCCCCcCOE  oc 

29  0.8000CC3000000000E  01  O.AaOOOOOOOOOCOOOOC  02  O.OOOOOOOOOOOOOOOOE  00  O.OCCOCCCCCCCCCCCCE  CO 

30  O.SOOOOOOOOOCDOOOOE  01  v, 29000000000000001  Ci  O.OOOOOOOOOOOOOOOOE  07  O.OCOOOOOOOCCCCCCCE  CO 

31  0. JOOOOCOOOOOOCOOOE  01  O.DOOOOOOOOOOOOOOOE  02  O.OOOOOOOOOOOOOOOOE  00  O.OCQCCOOCCCCCCCCOE  CO 

32  O.AOOOOOOOOOOOOOOOE  01  O.llOOOOOOOOOOOOOOE  02  O.UOOOOOOOOOCOOOOCE  00  O.OCCCOOCOCCCCSCOOE  ~0 

33  C. 80JOOCOOOOOOPrOOE  01  0.3200000000900000E  32  O.OOOOOOCOOOCOCCJOE  00  O.OCCOOOOOCCCCCCCCE  CC 


Table  S.5  Sample  of  Displacement  Increments  Array  During  Time  Increment 
199  to  200  for  M « 2 and  10 


DISPLACEMENT  INCKEN6NTS  BETWEEN  T.S.  1*9  AND  200 


N N 

2 1 

2 


4 


6 

7 

9 

9 

10 

u 

12 

13 

19 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 
2 5 
26 

27 

28 

29 

30 

31 

32 

33 


UKMtNI 

O.OOCOOOOOOOOOOOOOE  00 
O.OOCOOCOOOCOOOQ006  00 
O.OOOOOOCnOOOOOOOOE  oc 
O.OGCOOOOCOOOOOOOOE  OC 
O.OOCOOOOOOCOOOOOOE  00 
0 • 00  000  000000009  00E  00 
O.OOGOOOOOOOOOOOOOE  00 
O.OOCCOOOOO  00000006  00 
O.OOCCOOCCOOCOOOOOE  00 
O.OOGOOOOOOOOOOOOOE  00 
0.0000000009000000E  00 
O.OOCOOOOOOOOOOOOOE  00 
O.OOCCOOOOOOOOOOOOE  00 
O.OOOOOOOOOCCOOOOOE  00 
O.OOOOOOCOOOOOOOOOE  00 
O.OOOOOOOCOOCOOOOOE  00 
O.OOCOOOOnOOOOOOOOE  oo 

0.000c000c009000006  00 

O.OOCOOOOOOOOOOOOOE  00 
O.OOCOOOCGOOCOOOOCE  00 
O.OOOOOOOOOCCOOOOOE  00 
O.OOOCOOOOOOOOOOOOE  00 
O.OOOOCOOCOCOOOOCOE  00 
O.OOCOOOOOOOOOOOOOE  00 
O.OOOOOOOOOCOOOOOOE  00 
0. OOCCO 33COOOOOOOOE  00 
O.OOCOOOuCOCOOOOOCE  00 
O.OOCGOOOCOOOOOOOOE  00 
O.OCCOOOOOOOCOOOOOE  00 
O.OOCOOGOGOOOOOOOOE  oc 

o.oocoooodooooooooe  00 
0. OC COO 090000000 OOE  00 
O.OOOCOOGOOCOOOOOOE  00 


U2IP.NI 

O.OOOOOOOOOOOOOOOOE  00 
-0. 138 12 06 3936 53 739E -04 
“0 • 237 3 34 34 70663 74 3E -04 
-0. 472004048869890 U-04 
-9. 50082 297836952 T6E-04 
— 0.971 95654873 1591 7E-04 
-0.82 92 5 96 5698 73 34 86-04 
-0.10244700044629286-03 
-0. 108333 742 16 975686 "03 
-0.13107499696769486-03 
-0.15363710124690786-03 
-0.21646968237393696-03 
-3. 2 04200V 798 745 95 7 6-0 3 
-0.18927607289798446-03 
-0.21638187445486736-03 
-0. 15456980468368046-03 
-0.21304505078425006-03 
-0.22935941398869836-03 
-0.1 977772 677079695E-03 
-0.200306594292* 8296-03 
-0.19769570441419826-03 
-0.1176635779205TT56-03 
-0.21834720797864096-03 
-0. 11989838690827976-03 
-0. 8685676 0027696 l 3E -04 
-0.11410181672865856-03 
-0.77515869*65181306-04 
-0.53387142581149686-04 
-0.87837174030501556-04 
-0.71631532373299126-04 
-0.19322725221401756-04 

0. *77 1*1 02732 5422 3E-04 

0.0 000000 00 00 OCCOOE  00 


UllNifll 

0.00000000000000006  00 
-0.41684883289869176-03 
-0.8474448913925587E-03 
-0 . 1*238405418532026-02 
-0.1779364250648S65E-02 
-0.23033831050882616-02 
-0.2 7 3698 2 9330 96 866 6 -02 
-0 . 32951366048326846-02 
-0 .3708735 25680744 IE-02 
-0.45045311681457216-02 
-0. 50206674736992306-02 
-0.55229728540205656-02 
-U. 61049185623854236-02 
-0.6431512541 7190086-02 
-0. 697458195060 14 186-0 2 
-0. 72318163255272536-02 
-0.77050638056352386-02 
-Oc 78505708 1756 18 576-02 
-0.81727399983172066-02 
-0.81859922466717176-02 
-0.90115745196265056-02 
-0.7838  >821541072866-02 
-0.762577572*6903786-02 
-0.7*952732*96779106-02 
-0.73202519219324516-02 
-0.71777054369777196-02 
-0.73591782469136416-02 
-0.73232126502846006-02 
-0.7419899905486*766-02 
-0.7551315721  222826-02 
- . .791''  1576 57*752 966-02 
-0. 7656 19369012* 1096-02 
-0.81567619**2*23*36-02 


10 


1 O.OOCOOOOOOOOOOOOOE  00 

2 -0.9)679310**02921*6-06 

3 -0.501980707367*1666-05 

* -0.1**3650*6693288*6-05 

5 0.25776350595570986-0* 

6 -0.79326  96708  38*9316-05 

7 0 .973633986**51 5 90E-05 

8 0.14**1667*65121436-0* 

9 0. *25206*687*690556-05 

10  0.379(7953166*75*96-0* 

11  0.20656002705687536-0* 

12  0 . 3*752 188633178056-0* 

13  -0.12687029461475336-05 
l*  0.40877526289367096-04 

15  0.56038 15836442 1546-04 

16  0. 65937268447718966-04 

17  0.10670782794201976-03 

18  0.9*909994909451756-04 

19  0. 1 0 1361 474288 J9466 -03 

20  0. 999047*9970123576-04 

21  0.:41fi853757259157E-0? 

22  0.17541423485270706-03 

23  0.1694491*1034*6386-03 

24  0.  1 404496526.3278  2 IE-03 

75  0.1 5t?77*?5T328265E-03 

2o  0.1019H  W!*512511E— 03 

27  0.1  58  ;T2U*C6v>:015E-03 

28  0. 1627043«961269^0C-03 

29  0.20 69522 82 11 20799E-0  3 

30  0.22190737718933636-03 

31  0.2211 3 73907*935636-03 

3 2 0. 156550  0*4  751 04  5 96 -03 

33  0. 31258l61829222r7E-03 


O.OOOOOOOOOOOOOOOOE  00 
-0.193430T5573082206-0* 
-0.879068529855895*6-05 
-0. 1839791 l 102628836-0* 
0.55426882083075436-05 
0.21391397**1711046-0* 
OclOl 3*19980)434*76-03 
0.1895483071942*496-0* 
0.4529530131224*1*6-05 
-0.12437057952209246-0* 
0. 1046 >740677480806-0* 
-0.38679536253484106-0* 
-0.22458571854023146-0* 
-0.5080187338*705756-0* 
-0.57711916111*97746-0* 
-0.4061778392*117006-0* 
-0.909 7365 160805 7086-0* 
-0.93578385812991706-0* 
-0. 981228827708 14766-0* 
-0.63696389*67512*86-0* 
-0.5*879989865843906-0* 
-0.243*812139727*786-04 
-0.67531793602222266-04 
-0. 80524883596130266-04 
-0.40545058516034226-04 
C. ? 5178900491267426-04 
-0.41446279745469976-04 

-0. T 098060 l 9622 96506 -C* 

-0.1194C82230405943E-04 
-0.10617416295195316-03 
0.58023779336650496-04 
0.3S17U63020693966-04 
0.00000000000000006  00 


O.OOOOGOOCOOOOGOOOE  00 
-0.22126023231247866-03 
-0.43548058584T4219E-03 
-0.50460609998966016-03 
-0.62595910871674906-03 
-0.88313682535139346-03 
-0 . I 1977632433426926-02 
-0.150*6229498637016-02 
-0.18125682616073376-02 
-0.22 18658 9478999596-02 
-0.24796292711624896-02 
-0.28162990926424616-02 
-0.30386 35 55 3 3455346-02 
-0.34674617 1369J602E-02 
-0.376930209318*3416-02 
-0.4*33457448*637676-02 
-0.4594*705950729266-02 
-0.*91C*5 11208780806' 02 
-0.51248060848967646-02 
-0.53266210935443086-02 
-0.52297825768255436*02 
-0.51736264226419146-02 
•0.496821 181093 1578F-02 
-0.49915196787720196-02 
-0.49140706652691326-92 
*C. 476249 1235036 1 06 E-07 
-0.4788465  3235068  i'TE-02 
-0. '♦7021404166045666-02 
-0.47 1608 157677? 64 06-0 2 
-0.487 96951 t l*40284E-02 
-0.4767498558516651E-02 
-0 .46 598*77*9 990656E-02 
-0.4805 206926 7S806 76-OJ 


85 


Table  5.6  Sa^>le  of  Cartesian  Coordinates  and  Pressure  Arrays  at  Tine 
Step  200  for  M ■ 2 and  10 


SUP 

H 

l 

2oe  ri«  o.iooocoooi-o) 

CMfiSI  AN  COOMOlNOm 

nift.N.  2091  V2<«.ft.  2001 

0.00900C00030000002 . OO  0.0000000600000000E  03 

V3<»eNe  200) 
o.ooooooooocooooooc 

00 

missum 

414.NI 

C.CCCCOOOOCCCCCCCCE 

cc 

I 

O.OOOOOCOOOOOOOOOOF 

00 

0*99996596024002 06c 

0- 

-0.5J877043477852  756-01 

0.61679198062163186 

CO 

i 

G.OUOOOCOOO 00000008 

00 

0*1999923771 346841 E 

01 

-0.115*1941806273406 

00 

0.794U7359163311196 

cc 

♦ 

0. iOOOOQOOOOwOOOOOf 

00 

0*29999515928913136 

01 

-t. 173527*7027889736 

00 

3.7732311131081(376 

CO 

5 

0.009030000 ''■OOOOOE 

CO 

0*  399994*2252241236 

01 

-0.232l2a4t2U802*4E 

00 

0.774 1906676*16 1296 

CO 

* 

0.000030000  JJOOOOOE 

00 

0.49998194 64485916E 

Oi 

-G.2908724205803803E 

00 

0. 736694264C  '«142E 

00 

T 

Oe  C0003CQ00 JOOOQOCE 

00 

0.59997341507572536 

01 

-0. 34971 34 11U940949E 

00 

0.7* 12694716)4*7796 

oc 

• 

o.ooooocoooocoooooc 

00 

0.69996290574118316 

Oi 

-0.408897253 3 546 70 3E 

30 

C.7C733109C33345426 

cc 

9 

O.OOOOOCOOOOOOOOOOF 

00 

0*799951 061 8 1753106 

01 

-0.46805*4849887771 E 

00 

0.65499055372677466 

CO 

10 

0. QOOOQOOOGOGOOOOOe 

00 

0 .89993322662460006 

01 

-0. 52 74922 3478 70447E 

00 

0.6642G5B64183C7636 

cc 

11 

C.OOOOOOOOOOOOOOOOF 

00 

0.99991293642450306 

01 

-0 • 58 72 « 7704 18 67 224 E 

00 

0.67498062 36460 2 35E 

CO 

11 

C . OOO^OOOOCOCOOuOOC 

00 

0 . 10996 7315044*  64 6 

02 

-0.6469788*372482076 

00 

0.64724351217797126 

cc 

1J 

0*  COOOOCOOOGCOOOOOE 

00 

0.11990574823340346 

02 

*0. 705670 120 12 16622 E 

00 

0.66109731313791S4E 

CO 

w 

0. 0000000000  JOOOOOF 

00 

0.12998219081458146 

02 

-0. 7*34156*793550296 

00 

0.6 5 640 76446 32 2 952 E 

00 

IS 

o.ooooooooooooccocc 

CO 

0. 1399810552355361 E 

02 

-0 .62 03162 542 31 8846 E 

00 

0.6032G1ST2C448323E 

CO 

lb 

0. OOOOOOOOOOOOOOOOE 

00 

0.14997900772296876 

02 

-0. 8 762680872 26° 32 7 E 

00 

0.651465C474744556E 

cc 

l? 

o. coooocooqococoooe 

00 

0.15997688315955126 

02 

-0.93139392867 94 605E 

00 

C.6511IC7114164C66E 

00 

18 

0. OOOOOOOOOOOOOOOOE 

00 

0.16997476419500786 

02 

-0.965432051 3624752E 

00 

0 • 65 2 324 109 1540 4 3 5E 

CO 

19 

u.OCOOOCOOOOOOOOOOE 

00 

0.17997321573235146 

Oc 

-0.10391 45206000 769E 

ot 

0. 6340595976102 5 95k 

CO 

10 

O.COOOOCOOaOOOCOOOE 

00 

0.18997025452869746 

02 

-0. *0919344269540386 

01 

0.65673417CC3S91C5E 

cc 

11 

0. COOOOOCOOOOOOOOOE 

00 

0. 19996931086289176 

02 

-0.1 14330581 957891 9E 

01 

0.66 3 4731 501 695 9C2E 

CO 

22 

OOOOOOOOOOOOOOOOE 

00 

0.20996756626732756 

02 

-0.1193162672642931E 

01 

0.67017121CG147296E 

cc 

23 

U.OOOOOCOOOOOOOOOOE 

00 

0.21996464367693836 

02 

-0. 124 1564269 58996 3 E 

01 

0.6774459744 543 39 IE 

cc 

2b 

O.OOOCOCOOC^OOOOOOE 

00 

0.22996536734690186 

02 

-0.1266421227413664k 

01 

C. 6496304004224333k 

00 

IS 

o.  ooooooooco'.ooooor 

00 

0*2 399629462 953092 fc 

02 

•0.13334249879440816 

01 

0. 6943691 8744 7 365CE 

CO 

2b 

O.OOOOOCOOOJOOOOOOE 

00 

0.24996317103996006 

02 

-0. 137632895T296834E 

01 

0.70341234542191266 

cc 

27 

0. OOOOOCOOQOOOOOOOE 

00 

0.25996301726173086 

02 

-0.14 169679042443306 

01 

0.712421640C3C531BE 

cc 

28 

O.OGOO;COOOOOOOOOO€ 

00 

0.269965  59852053? 36 

02 

-0. 14545646121768376 

Cl 

0.7210181691604296E 

CO 

29 

0. OOOOOOOOOOOOOOOOE 

00 

0 .2  7996 02 030232250 E 

02 

-0. 14676992174866066 

01 

0.724799977t7C6724E 

CO 

*0 

O.OOOOOCOOOOOOOOOOF 

00 

0. 209973971 9603393 E 

02 

-0.15156154667680026 

01 

0.73  536439522 1971  IE 

cc 

31 

G»OOuO<jCOO  30  JO  3000E 

00 

0 • 29998075541 07096 E 

02 

-0. 1536646919434049k 

01 

0.7*036027654724276 

CO 

Jd 

O-OCOOOCOOOOOOOJOOF 

00 

0.30999135070747016 

02 

-0.1549453092611953k 

01 

0. 7434429591273441k 

00 

33 

u.ooooocoooouocooor 

oc 

0.32000000000000006 

vj2 

—0. 155409197603035  IE 

01 

0. 744 54591 3C4 21 148E 

CO 

1 

0 . 90)30 GOO ?CJU 000 OE 

01 

O.OOOOOOOOOOOCOOOOE 

00 

G.OOOOOUOC'OOOOOOOOk 

Ou 

O.OOCOOOOCCCOCCCOCE 

cc 

i 

■J.79997322ne727blbE 

01 

0.99993733961704596 

00 

-0.51499422773374696-01 

0.44 185759046 9C349E 

cc 

3 

3. f999‘9079bt83bS8F 

01 

0.19999122625280116 

01 

•0* 10)184297)4 03420c 

00 

0.41 793902  7 5434*166 

CO 

b 

j,T999t»  36  7 2631639 JE 

Cl 

0.29998299826784066 

01 

*0. IS 522 148719)010)6 

00 

0. 79*4936023236 643E 

00 

5 

0.797979030b26177SE 

01 

0.399981 4704672533E 

ol 

-0.2U72499291925028E 

00 

0. 7 75644 7926 2 54 5 C 36 

oc 

6 

Oe  ^00CO862S7-;SSe72e 

01 

0.49997489519297926 

01 

—0*  259244950*297 1816 

00 

0.7571231(743214196 

CO 

7 

0.  *<00 Ob 92 7 3939978 IE 

01 

0.5999702780932307E 

01 

*0. 3 1101 9983) 1670 50c 

00 

7.74026400643 42 2C*E 

CO 

8 

O.OOOl31Sb?9l69993E 

01 

0*69996472366525906 

01 

>0.36204480165671706 

00 

0.725014595C967601E 

00 

9 

0. 80 Jlo671 52  *bl 5b5E 

01 

0. 7999536035512374b 

01 

-G*4l50S)67770L61i6t 

00 

0.71 132387649C2  7786 

CO 

10 

0.00026115310700636 

01 

0.89993572619681866 

01 

*0*46 7820 00909 7 3082b 

00 

0. 69914173769k 8479E 

CO 

U 

0.^0333059920b9259E 

01 

0.9999241616798441b 

Cl 

-0.5205929)5506)5406 

00 

0.68842832370800686 

CO 

12 

U. -*006221716739729? 

01 

0.10998950573875066 

02 

-0.57261513093260506 

00 

0.67914520708696336 

CO 

1 3 

G.fiOO5l0j3'-’*>  0424576 

01 

0 • 1 19969201 3 00 7349 E 

02 

-0.62329310356937346 

00 

0.67123659653369656 

CC 

lb 

0.HOD6250S989363b9E 

01 

0.12998640297605086 

02 

-0.67294638302766266 

00 

0.66472714299372666 

00 

IS 

O.aO3T27?4*6)2SO04c 

01 

0.13996616531850956 

02 

-0*  721023483504147 « 6 

00 

0.6395224989184 15  IE 

CO 

16 

0.  *0084653428220056 

01 

0* 14 998407 84 6006 62 C 

02 

-0.7696297  7397807666 

00 

0. 6356035463 87 3217E 

CO 

17 

0.8009656283bU928E 

01 

0*13998352721436^36 

02 

-C.81662 19981 3867956 

00 

0.65 29 35535337V *896 

CO 

18 

O.0O1O1713O4O55921F 

01 

0*169901)1016762166 

02 

-0*86270414464649156 

00 

0.65166506747685566 

CO 

19 

0*90 120602 6951 0901 F 

01 

0.1799805803583359c 

02 

-0*90782968961169156 

00 

0 .65113772862512416 

00 

20 

O.bO 132949^152 7bl2E 

01 

0.10997834354515266 

02 

-0.95 1873351  SC 48 1696 

00 

C. 6518 84 81723429646 

CO 

21 

0. 80 143215  06089777c 

01 

0.19997842690543366 

02 

-0. 994292514 31 30 8046 

00 

0.65 36221241 92 748 5E 

CO 

22 

0*0015301097612 96 3b 

01 

0.20997674617233626 

02 

-C. 1035133785T568216 

01 

0 >65624669140112996 

00 

23 

0. ?0 17  3480 7353 0956E 

01 

0.21997646417003486 

02 

-0* 1074)824230479306 

01 

0.65963 39164048*736 

CO 

2b 

0.90197C711602T690F 

01 

0.229974)3255800556 

02 

-0*11 122 74072 62940 76 

01 

0.66363544994721256 

cc 

23 

O.°O2O2'J05S3114O21E 

01 

0.23997517278900386 

02 

-0*11487097622672056 

01 

0.66807847862286996 

CO 

26 

0.c  02 1*901  9*5940941? 

01 

0. 2499745*02 537334 E 

02 

-0. 11837  579540842096 

01 

0*67276703464 18C826 

CO 

27 

0.  4o2  32  Cl S 77022  89086 

01 

0.25997590271558996 

02 

-0.12 171 7 24 82523 42 6E 

01 

0.67748597845833916 

CO 

28 

3. 80244  771 860900696 

01 

C *26997700947312536 

02 

-0.12481217773882076 

Cl 

0.68200812239916696 

CO 

29 

0.«»025939741951624E 

01 

0.27997862916739566 

02 

-0. 12759423491237906 

01 

0.68610439490494586 

CO 

30 

0. 30269 IS356775315E 

01 

0.28998236382211966 

02 

-0.12992)44031835086 

01 

0.68955802022478726 

CO 

31 

0.40279344'* 01324506 

01 

0.29990798178480226 

02 

-0.1)109894439102416 

01 

0.692177402*1427356 

cc 

32 

3.0O24359966S94I66E 

01 

0. 30999)1133186901  b 

02 

— u. 1328353277272008b 

01 

0.69381301297422566 

cc 

3 i 

0. 802880532248 75096 

01 

0. 3 2 00 00 00 00 OC 9300 1 

02 

-0.13321756545057916 

01 

0. 6 94 369 18 74 8 73 6 5 CE 

CO 

86 


. r»»v>  t_ 


irvrwii 


Table  5.7  Saaple  of  Surface  Normal  Components  Array  at  Time  Step  200 
for  M ■ 2 and  10 


[ 

TIM 

STfcE 

200  TIM  O.ACOOCOCOc-Oi 

t 

SURFACE  NORMAL  VECTOR  COMPONENTS 

! 

M 

H 

SNl(P.N) 

SN2IP.N) 

SN3IM.M 

• 

2 

1 

O.OOOOOOOOOOOOOOOOE 

00 

0. 579*85 7*8 1663093E-C1 

0.996319549*1*98501 

00 

i 

2 

0. 00000000000000006 

00 

0.5  761 603 S 59 8 8 88806-01 

0.996038816282*1)86 

00 

\ 

3 

0. 0000900000000 0006 

00 

0.57729390820380216-01 

(,'.99833226805282016 

00 

t 

* 

O.OOOOOOOOCoOOOOOOE 

00 

0.582537237208632*6-01 

0.99630180991153656 

CO 

5 

0 . 00000000000000006 

00 

0.585756 0281 16*9206-01 

0.99828297529069976 

oc 

6 

0.00000000000000006 

00 

0.586983 51 11 796001 E-01 

0.99827576529535796 

00 

t 

7 

o.ooooocoooocoooooe 

00 

0.5891532016**86976-01 

0.998262983912*9616 

00 

l 

• 

O.OOOOOOOOOOOOOOOOE 

00 

0.59073569540130856-01 

0.998253631 78S9309E 

00 

9 

0.00000000000000006 

00 

0.5920226871*09**36-01 

0.9992*6007***61036 

00 

\ 

10 

O.OOOOOOOOOOOOOOOOE 

00 

0.5950259*212196256-01 

0.9962281509164218E 

00 

\ 

11 

0. 0000 3 COO 000000006 

00 

0.5965*772812622256-01 

0. 9982 i 9066 16 126566 

UO 

12 

O.OOOOOOOOOOOOOOOOE 

00 

0.59223522708192506-01 

0.9982**7*672198116 

00 

13 

O.OOOOOOOOOOOOOOOOE 

00 

0. 5813*88*81200881 t-01 

0.99830673739935506 

00 

i 

1* 

O.OOOOOOOOOOOOOOOOE 

00 

0.5 71* 396880 02*76 7 t-01 

0,9983659*8352*6*96 

00 

\ 

15 

0.00000000000000006 

00 

0.563*55**524* 9292 E-01 

0.996*11)276665*536 

00 

j 

16 

O.OOOOOOOOOOOOOOOOE 

00 

0.55*63917381655986-01 

0.998*6 0692 2 COO 890 t 

00 

> 

17 

O.OOOOOOOOOOOOOOOOE 

00 

0. 5*5123900* 5575S5E-01 

0.99851309*2  21 3623 E 

00 

| 

18 

O.OOOOOOOOOOOOOOOOE 

00 

0.53807*57302162416-01 

0.998551329**615136 

00 

19 

0.00000000030000006 

00 

0.53187805135327616-01 

0.99858*526910*09*6 

00 

| 

20 

O.OOOOOOOOOOOOOOOOE 

00 

0.520199*90*9)38006-01 

0.9986*60*585*53816 

00 

L 

21 

0.  OOOOOCOOOOOOCOOOE 

00 

0.50556193827396566-01 

0.998721217941130*6 

00 

r 

22 

O.OOOOOOOOOOOOOOOOE 

00 

0.49091*3)23011*1*6-01 

3.99879*78872186356 

00 

L 

23 

O.OOOOOOOOOOOOOOOOE 

00 

0.475805638838*5166-01 

0.998867*0358292556 

00 

I 

2* 

O.OOOOOOOOOOOOOOOOE 

00 

0. *5875905207996376-01 

0.9989*71*6*1033276 

00 

(■ 

25 

O.OOOOOCOOOOCOOOOOE 

00 

0.43916281580723676-01 

0.99903521*70072**6 

00 

26 

O.OOOOOOOOOOOOOOOOE 

00 

0,4173*91 S3? 7292 T3t-01 

0.99912BT188538C73E 

00 

27 

O.OOOOOOOOOOOOOOOOE 

00 

0.390831 96192 956006-01 

0.9992359600091 l?8E 

00 

28 

0.00000000000000006 

00 

0. 3 ? 33** 1056 06 71076-01 

0.999375 5**7*29C 10 6 

oc 

29 

a. 00000000000000006 

00 

0. 30*989575*37*6186-01 

0.9995347985*619576 

00 

30 

O.OOOOOOOOOOOOOOOOE 

00 

0.2**5118785**50066-01 

0.99970102501323196 

00 

31 

0.00000000000000006 

00 

0.16901210290833016-01 

0.99985716*34*3*036 

00 

32 

O.OOOOOCOOOOCOOOOOE 

00 

0.871*811)80069*926-02 

0.99996202531026656 

oc 

1 

33 

0. 00000000000000006 

00 

0.00000000000000006  00 

0. 1000000000000C006 

01 

S' 

t 

10 

1 

O.OOOOOOOOOOOOOOOOE 

00 

0.51353038551177316-01 

0.99866056225779256 

00 

2 

-0.1669875511733*916 

-02 

0.51515503879325866-01 

0.99867079880000226 

00 

3 -0.3*33129381 1392986-02 

* -0.53153718*69152526-02 

5 -0.7068*533**17001*6-02 

6 -0. 98835605203752106-02 

7 -0. 108**201**5738096-01 

8 -0.1272981648847809E-01 

9 -0.1482421940176093E-01 

10  -0. 16781 18016782 8686*01 

11  -0. 18 92 1 9288071*82 6E “01 

12  -0. 20922 106 65 89983 0E “01 

13  “0. 2 3 089 556 396*666 8E “01 

1*  -0. 25239827 22* 16899E-01 

15  “0.27*001188*383273E“01 

16  -0. 2967 589225 06 06**E-0l 

17  -0.11718683 69 33615 7E -01 

18  -0. 13956*3679*61 1 71 E -01 

19  -0,361 0365871932697E-01 

20  -0.38*0959818*307126-01 

21  -0. *0756113077529126-01 

22  -0. *3 207*8 l 937692 1*E -01 

23  -0 .*5  361630358906* 1E-0 1 

2*  -0. *7596027*52871886-01 

25  -0*  *9861 181370386**6-01 

26  -0.321515272877518*6-01 

27  -0.5*005*70215229836-01 

28  -0,55636929323120916-01 

29  -0.569955037*6198656-01 

30  -0.5 79810 62 9191553 56 -01 

31  -0.590233580*9*1*176-01 

32  -0. >9^021323331799*6-01 

33  -0. :9983e030j902625E-01 


0.5179373*659966*86-01 
0.5 1 97*80191 562081 t-01 
0.519*3908151170*36-01 
0.51819290*0065*116-01 
0.517352152910660*E-01 
0.5195*182830662556-01 
0.52*3168*9268868*6-01 
0.527103*0111769386-01 
0,5233^9327*5079056-01 
0.512991 11*298125*6-01 
0.501203850911*52 16-01 
0. *912*082*667582 96-01 
0. *830305198 1586036-01 
0. *7*662 92 1072*3*7 t-01 
0. *6507981*3 12**0*6-01 
0. *557765871 68882*6-01 
0. **561 55915*587306-01 
0. *32 129388003282 96-01 
0.* 162796652 23970*6-0) 
0.*0';382  5031897*5TC-Oi, 
0.3855 77 7*769093 156-01 
0.371663185511*92*6-01 
0.357610526916 92 98 6*  01 
0.3*2*1581*01536036-01 
0.3217728766*288866-01 
0. 29398*505862 3659f -01 
0.2  55690372  8*T77*TI:-Oi 
0.205331 165031878911-01 
0.1  *56 73 0969*  115 1 2 :-01 
0.760077*562  29187  7l:-0i 

o.ooooooooooooooooi:  oo 


0.99865190265308**6  00 
0.99863*250758*8566  00 
0.99862*9883561***6  00 
0.99861696535501196  00 
0.99860198808*56196  00 
0.998568332*9)35826  00 
0.998514*7707825276  00 
0.998*6883379038606  00 
0. 998*50 fi **8**7 37* 6 00 
0.998*6*15*0 98 lOo It  00 
0.998*7614878297966  00 
0.998*13723061099*6  00 
0.990*568336*710786  00 
0.098*3191682393676  00 
0.998*1*20901T*535E  00 
0.9983635 12 1966*1 1C  00 
0.99835223263*81**6  00 
0.99632727333653*16  00 
0.99830158351573386  00 
C. 9982635 163236933E  00 
0.998226237130660*6  00 
0.99817*9761 119338E  00 
0.99811572961392186  00 
0.998051968739**236  00 
0.99 8022059 S* 8*8606  00 
O.99801816776981716  00 
0.9980*696126236826  00 
0.9981060010656C85t  00 
0.99815029583898986  00 
0.99dl992*08 J92105C  00 
0 . 9982050 5* 7197 9)2 1 00 
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Table  5.8 


ft 
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2 

» 

4 

s 

» 

r 

9 

to 

u 

12 

11 

14 

15 

14 
IT 

15 

19 

20 
21 
22 
21 

24 

25 
24 
27 
20 
29 
10 
11 
S2 
11 


ft 

1 

2 

1 

4 

5 

6 
7 
• 
9 

10 

11 

12 

11 

14 

15 
14 

17 

18 

19 

20 
21 
22 
21 

24 

25 

26 
27 
26 
29 
10 
11 
12 
11 


Suplo  of  Stress  Subincreaent  Array  at  Tiae  Step  200  for 
Layers  K • 3 and  4 


ft«  2 1 4 9 4 7 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 c 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 0 

10  0 10  0 

1 0 0 0 1 0 

0 110  10 
0 10  0 10 

0 l 0 0 1 0 


It  1» 

• 9 10  11  12  11  14  11 

00000000 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
000  (.0  0 0 0 
oooooooo 
oooooooo 
000  00000 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
ooo  ooooo 
01000000 
00001000 
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oooooooo 
0 0 0 0 1 1 0 0 

oooooooo 
oooooooo 
oooooooo 
00000010 
0 1 0 0 0 0 i 1 

0 0 0 0 0 l 0 0 


16  IT  16  19  20  21  22 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

ooooooo 

0 0 0 0 0 0 0 

ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
1 0 0 0 0 0 0 
ooooooo 
ooooooo 
ooooooo 


IMATIft'N,  41 

2 1 65  67  8 9 10  11 

oooooooooo 
0000000000 
oooooooooo 
oocooooooc 
oooooooooo 
oooooooooo 
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oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
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1 3 0 0 0 0 0 0 1 1 

oooooooooo 

l 3 0 0 0 l 0 0 C l 

1001000001 
1001  oooooc 
0100000000 
101000000C 
1001000000 
ioioooococ 
0110001000 
0 1 0 0 1 0 0 1 0 0 

0100100000 


12  U 14  15  16  IT  18  19  20  21  22 
ooooooooooo 
00000000000 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
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ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
001  oooooooo 
ooooooooooo 
10010000000 
1,0001000000 
oooiooooooo 
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1 oooooooooo 
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COOCIOOOOOO 
000001  OOOOO 
00101100000 
01001010900 
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Table  S.9  Sample  of  Displacement  Increments  Array  During  Time  Increment 
399  to  400  for  M « 2 and  10 


ntSPLACENENT  INCREMENTS  BETWEEN  T.S.  399  ANC  *00 

M N UIIN.NI  U2 (W«N)  U3tM,N» 

2 1 O.OOOCOOOCOOOOOOOOE  00  0. COOOOOOOOOOOOOOOE  00  0.00000000000000006  00 

2 O.OOOOOOJOOCOOOOCOE  00  -0. 7827086*2608**2*6-0*  -0. 18*7* 156*55 3*23*6-03 

3 O.OOCOOOOOOOOOOOOOE  00  -0.52*26633695*022*6-0*  -0. 15259*6892 13*1 5*E-03 

* O.OOOOOOOOOOOOOOOOE  00  0.125929290500*0276-0*  >0.335181 150231113*6-03 

5 O.OOCOOOOOOOvOOOOOC  00  0.66765 99 3T 02 T2*I2E -05  -0.1929053*290**7166-03 

6 O.OOOOOOOOOOOOOOOOE  00  -0. 1612S26561347965E-03  -0.23979956653878636-03 
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Table  S.10  Staple  of  Cartesian  Coordinates  and  Pressure  Arrays  at  Time 
Step  400  for  M ■ 2 and  10 
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Table  5.11  Sample  of  Surface  Normal  Components  Array  at  Time  Step  400 
for  M » 2 and  10 
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33 
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0.  3000000000000000F 

00 
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-0.  ■.6637C0761622576E-02 

3 -0.1163R12666769513E- 

6 -,. 173699839670 3645F- 

j -j.23 J5073289916596F- 

6 -0.2917lST5966aa620E- 

7 -0.34 97292302*2193 9E- 

8 -C  .4102RC841:.902189E- 

9 -0.4694960672765971E- 

10  -0.  i2:B325374939417E- 

11  -0, 57898B8963237C05E- 

12  -O.629807O3395TO264E- 

13  -0.67637 09 120161B88E- 

1*  -0. 7180309514265984E- 

15  -0. 75596036 742141? 5E- 

16  -0  . 7903747727443 144C- 

17  -0.“2J8978550?65760E- 

18  -G. 85 30 15841222516 7F- 

19  -0.8797728363294  34';":- 

20  -0. J0272 J7920356672E- 

21  -0.921 50 66123071 945F- 

22  -0.73  773 64425234 159E- 

23  -0. 9S29376639535326E- 

26  -0. 96  346  5696 5 766? 00E  ■ 

25  -0. 9766707576357098E- 

26  -0.98337805193720 9 8E- 

27  -0.9889205959605 42 OF- 

28  -9. 996906003736655 9F- 

29  -0.19921 5655062 199 IF- 

30  -0. 1005  .'230642B9959F 

31  -C . 100909J692623C29E 

32  -J.  t011?S6037C37«.22r 

33  -0. 101319515368“106F 


4000000 

NOHHAl 


01 

01 

01 

01 

01 

01 

01 

01 

01 

o: 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

00 

00 

no 

00 


-o; 

WECr08  COMPONENTS 
SN2IH.M 

.12596382363775351  00 
.12S7631627562607E  00 
. 123592462920661 7E  CO 
.12521183505658831  ou 
.12636608118271161  00 
122662  73835260211  OC 
. 12 OC 09878266 66 95E  00 
U673751T6263626E  00 
•11207069980961S7E  00 
105B160330552S35E  00 
.991108102181 7263E-01 
. 91608166686603511-01 
.83150065825920521-01 
.75060558362672831-01 
.67730669696668671-01 
.6099168563 17 60 72E-01 
5528623890961591E-01 
•5005660718302291t-Ol 
.65033107626021061-01 
.602 629 703 57' 5706 £-01 
.35809950363366391-01 
•31 88 060268 9 5 12 05 £-01 
•2782353 96 7276756E-01 
.26190617763033281-01 
.2111 62 09370665661-01 
.18557106705783921-01 
•1632069397970176E-01 
.13858887603931 15E-01 
. 1166761 096093897 t-01 
. 9092  71 5 383698167 £-0/ 
.6630697036 11 2697E-02 
32792823615399891-02 
.OOOOOOOOOOOOCOOOl  00 
• 101961 56 122 36536E  00 
. 10166 3 72 97 8626 87 E 00 
. 10066256231 7 7331 E 00 
.9968 l 326 3960 8992 E-0 1 
.9806667 37052 3801 E-Ol 
. 960 705 5 306 2 07s 87 E-01 
•9362370123232 06 OE -01 
. 8969056786956TC5E-01 
856 156 9? 22 9681 73 E-Ol 
.8073286801 2078S3E-  1 
. 75301 l 800666 2580E-0 l 
. 69505970 19779783E-01 
.63621681 86506956 E-01 
.5T5B692569537625E-01 
. 521 980V655082 300 E-Ol 
.6735668696097T15E-01 
. 62 97591 1 7809 1632E-01 
.38800579818759886-01 
.368621605259 95 13 E-01 
.31206226592905926-01 
. 277721 91 8320222 l E-Ol 
.2660251676355666 E-01 
.21733055183676 76 E-01 
.1922668531231980E-01 
.1 6960687072 56063E-01 
1660 3667 2 62 925 5 3 E-Ol 
.1238696l915T316lfc-0l 
.1066667 58660092 5 £-01 
.35861287 56 512229E-02 
.65391379516P7T36E-02 
.656' 7971665 7 7936 t -02 
.265372201 3217106E-02 
OOCOC'JOOOOOCOOOCE  00 


0. 

0. 

0. 

6 

0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
9. 
0. 
0. 
J • 
0. 
0. 
0. 
‘J  m 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

0. 

0. 

O. 

c. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
J. 
0. 
0. 
0. 
0. 
0 • 


S N * < H , M 

99203 7376966B6TQE  00 
992062B31704B70RE  OC 
992081 90 5 962 96 51E  00 
992130029166958  IE  00 
9922389 12 3 183293E  OC 


992668613CT76206L  00 
9927726 97 6092886C  00 
9931628023533S80E  00 
9937002  58  1 6 26C 26 E 00 
9963857235260676E  OC 
99507 6602 76 3 9 70 9 E 00 
995795131S6C7335E  00 
996337C398697680E  OC 
9971789772058606E  00 
9977036565039106c  00 
9V8138286J635B17t  00 
998670'662792825E  OC 
9987464 92 52J27T3E  00 
998 98 569 50 076 7 86 E 00 
9991891 178660373E  00 
9993586 180627953 E 00 
99 96 9 1686 39 3 69 10E  00 
999i>1  2860383 1916E  00 
99970 7 36902 7 7 820t  00 
99977 702 7 98 86 290E  00 
99982T8020692916E  00 
99986681 186(159 00 E OC 
99990 396 100 56662 E 00 
99993661 39 5 50609 E 00 
9999586606099965c  00 
999979322B560536E  00 
9999966231391613E  00 
lOOOOOOOOOCOOCOOE  01 
99679C3910739121E  00 
9968252702 50 J917E  00 
9968568982193666E  00 
9968 8 T8C 76 2 1 3 138E  30 
99690SBT99766275E  00 
9969669676  561 989 E 00 
9950120 133661 687 £ 00 
9951062165025031E  00 
19522166 Jo58 86 10E  00 
995367782 7 7 5962 TE  00 
9 9 5678 50 3666 6 95 8 E 00 
99559095 182278 1 1 E 00 
9956921T8619679TE  00 
99 575 5 1 36 50 8 7 83 6 E 00 
99  5TT 1 3A08882089E  00 
995T6228B3218B66t  00 
99 56731 36 16 66 351E  00 
91559939* T125331E  00 
99551 2963866653 IE  00 
99 562 80832756631 E 00 
99535 77 05 0665 760E  00 
99527065l8o0l999E  00 
9952119256667T16E  00 
99516020165177 59 E 00 
995096 1 775260891 E 00 
99506  59  3632  56 165 E 00 
99 502 106697 66 390E  00 
99698 36869220726E  00 
9969582631656131E  00 
996715?? 6115138 1C  00 
99688 52371632677E  00 
99686615365330T7E  OC 
9768539368691 819E  00 
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Table  S.12  Sample  of  Stress  Subincrement  Array  at  Time  Step  400  for 
Layers  K « 3 and  4 

IMAMM.N.  si 

N N>  2 J A 5 6 r a 9 10  11  12  IS  14  l»  16  IT  IS  19  20  21  22 

1 000090000000000010000 

2 OOOOOOOOOCOOOOOOOOOOO 

J OOOOOOOOOCOOOOOOOOOOO 

4 0 0 0000000000000000000 

4 OOOOOOOOOCOOOOOOOOOOO 

* OOOOOOOOOCOOOOOOOOOOO 

T OOOOOOOOOCOOOOOOOOOOO 

a ooooooooooooooooooooo 

9 toioooooocooooooooooo 

10  oooouoooooooooooooooo 

11  OOOOOOOOOCOOOOOOOOOOO 

12  OOOOOOOOOOOOOOOOOOOOO 

13  09000U000300000000000 

14  OOIOOOOIOCOOOOOOOOOOO 

is  OOOOOOOOOOOOOOOOOOOOO 

16  OOOOOOOOOOOOOOOOOOOOO 

IT  OOOOOOOOOOOOOOOOOOOOO 

is  ooooooooooooooooooooo 

19  ooooooooooooooooooooo 

20  ooooooooooooooooooooo 

21  ooooooooooooooooooooo 

22  OOOOOOOOOCOOOOOOOOOOO 

23  OOOOOOOOOOOOOOOOOOOOO 

24  OOOOOOOOOOOOOOOOOOOOO 

25  OOOOOOOOOCOOOOOOOOOOO 

26  OOOOOOOOOOOOOOOOOOOOO 

2 7 OOOOOOOOOCOOOOOOOOOOO 

2a  ooooooooooooooooooooo 

29  ooooooooooooooooooooo 

so  oooocoooooooooooooooo 

31  ooooooooooooooooooooo 

32  ooooooooooooooooooooo 

33  OOOOCOOOOOOOOOOOOOOO 


IMAUH.N,  41 

N M=  2 J 4 5 5 7 8 9 10  11  12  13  14  15  16  17  18  19  20  21  22 

1 OOOOOOOOOOOOOOOOOOOOO 

£ OOOOOOOCOOOOOOOOOOOUO 

3 0 0 000000000000000000  1 

ooooooooooooooooooooo 

5 O OOOOOOOOCOOOOOOOOOOO 

b OOOOOOOOOCOOOOOOOOOOO 

7 09OQO010OC000000000OC 

a ooooocooocoooooocoooo 

9 ooooooooooooooooooooo 

10  000100100001100000000 

11  ooooooooocooooioooooo 

12  OOOOOOOOOCOOOOOOOOOOO 

13  OOOOOOOOOOOOOOOOOCOOO 

16  OOOOOOOOOOOOOOOOOOOOO 

is  OjOOCOOOOQOOOlOOOOOOO 

16  000000000000110100000 

IT  030000000000000000000 

la  ooooooooooooooooooooo 

19  000300000000000000000 

20  000003000000000000000 

21  OOOOOOOOOOOOOOOOOOOOO 

22  3COOCCCOOCOOOOOOOOOOO 

23  O OO  OOOOOOCOOOOOOOOOOO 

26  0 OOOOCOOOOOOOOOOOOOOO 

26  CJOOOOOOOGOOOOOOOOOOO 

26  9 00009000000000000000 

27  OOOOOOOOOOOOOOOOOOOOO 

2a  OOOOOOOOOCOOOOOOOOOOO 

29  OOOOOOOOOCOOOOOOOOOOO 

30  OOOOOOOOOOOOOOOOOOOOO 

31  O 'OOOOOOOCOOOOOOOOOOO 

32  OOOOOOOOOOOOOOOOOOOOO 

33  J 0 0 900000000000000000 
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Table  5.13  Sanples  of  Energy  Balance  and  of  Surface  Strains  Printed  CXitput  at  Tine  Steps  200  and  400 
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Figure  3,3  Isometric  and  Cross-sectional  C.il  Comp  Plots  ->f  the  Deformed 
Middle  Surface  it  Time  Steps  300  and  -100  with  Displacements 
Magnified  by  Factor  of  Three 
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5.2  Example  2:  Impulsively  Loaded  Cylinder 


The  second  example  involves  a dynamic  buckling  problem:  determine 
the  final  equilibrium  configuration  of  a clamped  end,  aluminum  cylinder 
due  to  an  inwardly  directed,  instantaneous  impulse  delivered  over  3 
rectangular  region  of  its  surfac  . The  impulse  imparts  a uniform 
velocity  of  7500  in/sec  over  an  180°  arc  extending  the  entire  length 
of  the  shell.  The  dimensions  and  geometry  of  the  problem  are  shown  in 
Figure  5.7.  The  example  employs  the  following  REPSIL  options. 

•Cylindrical  shell  initial  geometry 


• Input  card  specified  impulsive  loading 
•Clamped  edge  and  symmetry  edge  boundaries 

• Elastic-perfectly  plastic,  strain  rate  insensitive  material  behavior 


• Damping  procedure 
The  material  properties 
Young's  Modulus  E 
Poisson's  Ratio  v 
Yield  Stress  aQ 
Mass  Density  p 


of  the  aluminum  are: 

= 10.7  x 106  psi 
= 1/3 

= 42,000  psi 

- 2.59066  X 10"4  1!>-'-yc 

i,,1 * * 4 


As  already  indicated,  the  material  is  assumed  perfectly  plastic  at  the 
yield  stress  and  independent  of  the  strain  rate. 


Advantage  is  taken  of  the  symmetry  of  the  problem  to  restrict  the 

2 3 

analysis  to  the  portion  of  the  shell  on  the  positive  side  of  the  y , y 

1 3 

coordinate  plane  between  the  y , y coordinate  plane  and  the  crossectional 
symmetry  plane,  located  midway  between  the  ends  of  the  cylinder.  Figure 
5.7.  This  makes  edges  1,  2 and  3 symmetry  boundaries  and  edge  4 a clamped 
boundary  (compare  with  Figures  3.1  and  3.7).  Also,  only  180  degrees  of 

the  circumference  and  half  the  length  are  prescribed  as  the  input 
dimensions  and  the  loaded  region  is  restricted  to  the  first  90  degrees 
arc.  The  example  uses  20  mesh  intervals  in  the  circumferential  direction 
and  12  in  the  axial  direction,  giving  an  almost  square  mesh.  The  thickness 
is  divided  into  4 layers.  The  time  increment  is  deliberately  set  equal 
to  zero  in  order  to  assure  that  the  stable  time  increment  determined  by 

the  program  is  used  to  solve  the  example. 
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The  damping  option  is  used  to  obtain  a final  equilibrium  configura- 
tion. Based  on  a preliminary  solution  of  the  example  without  the  use 
of  damping  it  is  determined  that  most  of  the  plastic  work  is  accomplished 
by  time  step  270.  Hence,  the  damping  for  this  example  is  picked  to  begin 
at  time  step  270.  The  example  is  set  to  run  until  time  step  600,  Since 
the  run  may  not  be  terminated  by  damping  before  time  step  600,  provision 
is  made  for  collecting  information  for  a restart  run  every  100  time  steps. 
Table  5.14  lists  the  input  data  for  the  run  in  the  order  shown  in  Table 
3.1.  Notice  that  while  the  diameter  to  the  outer  surface  is  specified 
in  Figure  5.9,  Card  14  calls  for  the  radius  to  the  middle  surface.  Also, 
because  half  the  area  associated  with  each  mesh  point  along  the  90° 
line  (i.e.  along  M ■ 12)  receives  the  full  impulse,  only  half  the 
impulse  velocity  is  assigned  to  these  points  in  Cards  16a  - 16 l. 

Tables  5.15  - 5.23  give  sample  listings  of  the  printed  output. 

For  the  sake  of  economy,  only  the  values  of  arrays  Ui(M,N),  Yi(M,N), 

SNi  (M,N)  at  M » 2,  12,  22  and  1 < N s 13  (i.e.  along  the  0°,  90°,  180° 
meridians)  are  given.  Also,  the  LMAT  (M,N,K)  array  is  given  at  K * 1,2. 
Figures  S.8  - 5.11  give  examples  of  the  plotted  output.  Notice  that 
the  damping  operations  terminate  the  run  at  time  step  525,  corresponding 
to  approximately  643  microseconds. 
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Table  5.14  Input  Data  Cards  for  Cylindrical  Shell  Problem 

Card  1 EXAMPLE  2 FULL  CYLINDER  WITH  IMPULSIVE  LOADING 

Card  2 20  12  4 0.0 

Card  3 600  0 100  0.0 

Card  4 2221 

Card  5 0 0 270  .10000QE  00  .500000E-02 

Card  6 . 107000E  08  .33333333  .420000E  05  .2S9066E-03  .420000E-01 


Card 

8 

50 

1 

1 

1 

Card 

9 

7 

100 

125 

200 

250 

300 

400 

500 

Card 

10 

4 

100 

200 

300 

400 

Card 

11a 

24 

25 

SO 

75 

100 

125 

150 

175 

Card 

lib 

325 

350 

375 

400 

425 

450 

475 

500 

Card 

12 

90.0 

1.5 

6 

Card 

13a 

0.0 

3.0 

45.0 

135.0 

Card 

13b 

0.0 

3.0 

45.0 

135.0 

Card 

13c 

45.0 

3.0 

45.0 

135.0 

Card 

13d 

45.0 

3.0 

45.0 

135.0 

Card 

13e 

90.0 

1.5 

45.0 

135.0 

Card 

13f 

90.0 

1.5 

45.0 

135.0 

Card  14  . 300000E  01 


Card 

15 

2 

11 

2 13  . 

Card 

16a 

12 

2 

. 375000E 

04 

Card 

16b 

12 

3 

. 375000E 

04 

Card 

16c 

12 

4 

. 375000E 

04 

Card 

16d 

12 

5 

. 375000E 

04 

Card 

16e 

12 

6 

.375000E 

04 

Card 

16f 

12 

7 

. 375000E 

04 

Card 

16g 

12 

8 

. 37S000E 

04 

Card 

16h 

12 

9 

. 375000E 

04 

Card 

16i 

12 

10 

. 375000E 

04 

Card 

16j 

12 

11 

. 375000E 

04 

Card 

16k 

12 

12 

. 375000E 

04 

Card 

16 1 

12 

13 

. 375000E 

04 

295800E  01  . 360000E  03 
O00E  04  13 


200 

225 

250 

275  300 

525 

550 

575 

600 

1 

0 

1 

0 

1 

0 
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Table  S.1S  First  Page  of  Printed  Output  Summarizing  the  Input  Data  and 
Results  of  Stable  Time  Increment  Check 


•Mi  RlPSIL  cool 

*•*  ****•'  6 2 pULL  CYLINDER  NIT*  jmpuI'sIwi  loading 


80  *ESw6s  tN  THf  6t*i  DIRECTION 
l?  mE$m6s  In  T«f  eTAS  DIRECTION 


(DlTAi  *0,23232lE  DO) 
(DETA2  *0i25000oE  00) 


Send i no  tine  increment*  oiaeosssE-os 
MEMBRANE  TINE  INCREMENT*  0,157900E«0» 
‘NRUT  TJNE  INCREMENT*  O.OOOOOQE  80 


TIME  INCREMENT  used  it  REPStL*  0«1500086»05 


yOuNO 1 s 

ROISSON'S  RATIO  *0 • 333333E  80 
NASS  0*N§!Ty  *0<?59046S«03 


MODULUS  *8 < 1Q7000E  OB 

YIELD  STRESS  •li.420000R  09 

TMjCkNESS  *0 . AJOOOO^-OI 


START  AT  time  STEP  0 
FINAL  tine  STM  600 
SURFACE  STRAINS  eVgRY  50  T>HE  STEP 
RESTART  V(R  1 TP  rvERY  100  TINE  STEP 

LAYER  • 4 NSTRN  • 6 

l°ao  • o lpress  * o 

IOUNDARy  CONDITIONS 
1/2/3  ■ CLAMPgD/STNMETRY/MiNGED 
EDGgl  * 2 

ED0E2  * 2 

PDGE3  « 2 

EDGES  * j 


PRINT  OPTION  CONTROL  rARp 
0/t  « NO  PRINT/PRINT 
1 DISPLACEMENT  INCREMENTS 
1 CARTESIAN  COORDINATES,  PRESSURE 

i surface  norm*l  vector  component* 


prI^t  Information  at  the  following  time  steps 
l00  125  200  ?5q  3uo  * QO  500 


"i;;  *'  tbe  ->»,  Sr,.s 

3«D_Pl0tS  FrR  the  FOLLOWING  TIME  STEPS 

Al  ...  .!?  100  l?5  150  l?5  200  229  29|)  275  Joq  3?5 


A?5  *5o  4T5  580  5/5  55Q  575 


600 


35q 


379  *00 


const : Tut t yc  relation  el  a stopl ast t c-no  work  hardening. StRajn  Rate  independent 


j 

i 


stress. stra in  and  strain  rate  parameters 

SSIG(J)  SpPS(J)  DSR(J) 

4,20000006  04  3.9252336E''0  3 0*,  00000006  00 


l/PSR( J) 
O.OOOOOOOE  00 


start  damping 

DaMPF  • 0 1 o o o e 00 


AFTER  Time  step  270  THE  *Q 
qFaCT  *0,5000E'02 


4O50E-0J 


Table  S.lo  Second  Page  of  Printed  Output  Suanaxizing  the 
Va.ocitias  and  Saaple  of  Third  Page  of  Output 
Values  of  Cartesian  Coordinates  Array  for  M ■ 

I 1J)  a No  <M*  V,  13)  aftPlv*  FI'I.'.  wFl.Ji‘1  TY»  !vh  >• 

OTNfa  V6L0C1TY  0! 

M N V 


12 

2 

■7.37  jPitriP 

r,  4 

12 

3 

0 . 3771)006 

i'  4 

12 

4 

i'.37Sm»r.|s 

['  4 

12 

5 

0 . 3 7 1 (1 0 (1  f; 

u 4 

12 

6 

0 , 375P00I; 

n4 

12 

7 

.i  .375000? 

r>4 

12 

8 

o.375pone 

r 4 

12 

9 

n.'l7  »000B 

r,  4 

12 

10 

0 , S77pni)i* 

fi4 

12 

11 

P. 3750006 

n 4 

12 

12 

o .3730000 

• *4 

12 

13 

'',373pni)f 

i«  4 

N 

V 

l (>••*■) 

T fv  1 7 

t*i  cooar'i*.'*T6s 

1 

a.oonv: 

OJ!'U(C.,,'COJO- 

uO 

n , nnOQOCtiOOOO.OOUI'Ot: 

PC 

n i 

/ 

0.0  )<)'• 

II. line  ;r-jO  J J; 

0 f* 

r,55omcoopoonnono? 

PO 

o . 

*i 

' - . U 7 v ' 1 1 

0 0 of)  f . ■'  u 0 J 7 

Cl: 

P.inPOOCOOPOOOuOOOe 

00 

0. 

H 

0 * 0 o o ■ ■ 

o " o 5 c .M  c o : ~ :• 

on 

o.’boconooeooaopr.ot 

•00 

0, 

0 

J 1 J J J ' 1 

i"jt)0r'?in  o': 

on 

P, 1 p OOOCOOOOPCOOOO? 

n ' 

o. 

0 

J . J '1 U ■ 

j 0 n u f 4 •*.  0 u 0 s 

on 

n.ii'SocGOoeoocoonar 

01 

O' 

7 

J . J J J ' 

0 j u 0 0 0 5 3 0 *.  i > 

On 

11,1  bPOPOPOPOOOPPPO? 

ni 

0 ' 

0 

1 , J 0 J o ■ 

jj"oe  I'ooooJ 

on 

5 . 1 75oPononoconmn? 

•V 

O' 

4 

■' . J •)  u 1 

u j * 0 ' ' g 0 J 0 5 

0 0 

0 , 3 1:  o 0 1)  0 0 0 n 0 P 0 fi  u n 0 f 

V 

0 ' 

* yj 

'j  i il  ■'  0 l ■ 1 

0 0 0 0 C i *i  0 P o u 7 

on 

0 . :5  <•  5 0 fi  0 0 0 0 0 1;  0 P P 0 c 

O' 

n 

*1 

•J.OjP'  ' 

w'.* Of  J r 0 C j C v 

CP 

n.iiYpoopPoop'-ono-iO? 

pi, 

O' 

:2 

M . 0 .1 0 '■  ‘ 

f'O'lOlCOOO  01-; 

rn 

t ,r77000POOOCOOOrPe 

P’ 

0. 

' * 

1,0  Hi-J  * 

f o r ) ( o ° o o ; o - 

cn 

o,  3cmonooooocfiC"06 

ni 

0 

1,1*79  UmIiOC  5 0 j '!  1 Je 

01 

n . n o i o o o o o o o o o j o o o 

no 

0 

r*. 

1,1*74.1 

J J *>  i C J ^ .•  iic 

0) 

0 . ?5 mnoPOPOnoou  i 

no 

0 

).  1*  ’VO 

uoroo  ) U''j:c  = 

n 

O(*,moooc0000000n)c 

no 

0 

** 

0 , 1 1 f j 0 0 0 0 U 0 J 0 i j L n s 

01 

u , ’bOOPOPOOOOOi'OO 0? 

PO 

0 

•1,1*29', 

•ini. or  j o ..  i c o ? 

01 

P , 1 nonnoooooonoo  )Dc 

M 

0 

.),  1*79100000  JOjJCOF; 

01 

P . 1 5 7 00  00 0 0 00  0 o 0 0 ))- 

PI 

0 

1 

O,l<7VO'J'jr00'!0.V)C0c 

01 

o , i sonooiunoooPoooc 

ni 

0 

,, 

1, , 1*74  Til  Of.  oo  n MwU‘. 

til 

n.i  7'5ooooooooojooi)? 

m 

o 

$ 

0 , 1 * 7 9 7 0 0 r.  U P ) 0 , H c li  i 

01 

o.aniooonooopo Jpnoc 

m 

0 

\ v' 

•’),l4  7vo 

oooor  n or.  07 

01 

o . ? ✓ 3 o o o o o n o o a •)  u n o 5 

pi 

0 

11 

■i  .1'  ’400  JtlOu  1 o 1 0 •:  Oi 

01 

f> , ?s  lonofiooooiV'onos 

m 

0 

! - 

u, 1^/9 1)  Out!  OCJJ’JJOU'5 

01 

o.?77Qaomooo.'0'V)t; 

pi 

0 

tsS 

i , 1 * 7 V 0 0 0 0 0 0 ) 0 J 0 i'  V t 

01 

c , 70  viocmonoiiof  on  Os 

P’ 

0 

0.5l5,J'>574j8*.‘i*7ft7p 

•15 

n, nnn nooPonuPonon nP 

no 

-0 

,.,5l5>)757li0H55*7p7c 

•t’j 

p.pbPoooooPonnooooF 

np 

-0 

> 

J,5;,>'‘557so^l1>*7e'7F 

-l!» 

u,?unnflooiipooononi)E 

no 

-0 

4.5: i"7 

0Pr>S474,7fe 

°vi 

o’.75inPOPooonoooiioF 

no 

-0 

1.51  3 K ? 

7 ^ 1 1 (j  S •»  * 7 7 £ 

* 1 3 

o,i nnpnonocoponooofc' 

01 

-0 

**» 

“*7:,,3R%‘j476^fc 

*15 

o.l25noOOOPOOOfiOi)iJl: 

PI 

-0 

•15 

0 . * *»  -7  n o 0 » o n o o 0 o o n u b 

tv 

•0 

'j 

‘.515“' 

t'7*0HS5*7s7); 

*15 

o.  J 750"0P00000P000E 

PI 

-0 

- 

1 : . ^ 1 J - 1 

3 5 ..  8 u 5 4 7 f,  f E 

*15 

1, 5>oTanoOOPUOOOOO,jb 

ni 

-0 

’ ,, 

J . a 1 5 » =■. 

3<--ju55*7*.7t; 

•15 

II , 'J2'iOOOOOPOOOiinoi)t 

m 

-0 

, ,5\’3'l5'j7"'4^'’347',  Jf 

•l* 

o,55npponijn'jnpopooc 

pi 

-0 

o.sibx*; 

575grt'.'S*7b7g 

•15 

P , 57?OOOPOOOPOOt)POE 

ni 

-0 

1 J 

0 ,515"54.’ 50857*  7b  7e 

•1* 

p.innnoooopgooopone 

m 

-0 

Input  Iapulse 
with  Initial 
2,  12,  and  22 

u.?»onM)E  04 


73(4, N> 

' 47vonaooftofio,'oc6  j* 

i «7‘»unnl'uti')n'i'iuQe  Jl 
) 473uoor'cono^"u:£  ji 
i47V0l)0.'0000i"'oV6  V * 

1 47*P('n"(>|!i)0vi"ou£  4i 
•>  4 7 y u 0 0 . 0 0 U 0 J • U C e 'Jl 

1 4 7 U o 0 0 f. 0 1) v fClOe  j* 

• a 7«>  u n n><  o 00  9 )“  uC€  J 1 

4 7 4 u 0 0 o q f*  0 '1  o “ -I  »,  <s  4* 

. 1 4 7»iii'o ' on  nil o o is  ji 
) 4 7 9 g ()  0 'ODiHIj-  Cue  J '■ 
4 7 « ij  n o ■ 1 0 (J  J '1  j - 0 o c Jl 
, 14  74 0() IV' u', no-1  ’ Oils  Ji 
, 1 ••  -*-•->  9 .‘77  ( •;■>*  yC-  -15 
, iVH-ft <y  <7  7X  {--Vie  1 5 

, *,  i463v.<77l.»4*-<i6-l> 
, i:>8  4479  <771  .73*J>b*1» 
, ) r«4A;i9.i7  7i  JDs-ls 

, K'<i'J63g.*77l?^f'i«B'i7 

, XI  li9639.l77l’i'S0v;>S»l9 
. \ r« -1 0 <s .> 9 177,  -,i‘.4^e-ia 
. «77i.<'t'  y1.>t*15 

, < 7 7 1 

, < 7 1,  ..  i * ^e*15 

, ■ V'7 4*3v  17  7l,<-0V2fc*l5 
. l«  7 w 0 r. o , i f, o 0 1!  'J  ) v lie  U 
, ) * 7 W .) 0 0 >j  0 0 0 r>  ) niOii  Jl 
» * 4 7 *4 ,J n j n u t) 0 0 J I* l* i»ls  J1 
, X 4 "7 <* U n o t, o 0 0 J ■* v I' IT  Jl 
, i 4 7 w o n .) n o o a «' 0 n ij n r Jl 
. 1 4 7 n n j o o Q o Ti 0 • "i i) e Jl 
. 14  7400  rM'OO'I'J  fn  lit;  Jl 
, 1 4 7 5 0 (’  1 .7  0 0 0 -J  0 0 i' t .1 
, 14  74'jfi  J Ci 00 O')  J'lp'ir;  Jl 
> j4 7viunnn(,no'J  joi.nc  J- 
, '.4  70or>7.HioO',Ui'ui,e  Jl 
, i4  7<4uni)r. ouO'l  J ""•£  Jl 
• 1 4 74  0 0 J 1 0 0 0 0 J "I  i' 'It  Jl 
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Tab!®  S. 17  Staples  for  M ■ 2,  12,  and  22  of  Displacement  Increments 
Array  Daring  Time  Increment  124  to  12S  and  of  Cartesian 
Coordinates  and  Pressure  Arrays  at  Time  Step  12$ 

urMatutt  (trail*  t.».  tt«  **t*  lit 

N ui  (»,*l  UllOltl  Iijlt.t  ) 

i e. otoosocoeuaoooooa  to  o.ooetioooooofioooat  go  a.iooaaooooofiooooo*  og 

I 9,  OOOOIOMH'gOCOgOO*  00  .0  , «t  l*  |IKT)I  t Ml  86*0*  •MHUMOtOMUllk-K 

) 0.,' lOOOuPoSOOaOgOOf  00  .0,(03tlt*7J*?«10048.04  *1  . 73***»**,l6r>i«***»*03 

4 0,9  1099001l0u000900l  00  •0.»llllt0f|413lltt|.«4 

5 o.o-ioooocgojooocoo*  oo  •o.ieotttoo<*)4Hi]|>04  o.it4o’i  4|»(iftmg4»«o4 

4 0 . 0 lOOOOf'i'OOOOOgOOl  00  •0.1«**0*681**71>3f|.8*  0 .*830*;63(1»»»**11**94 

y o . o looooouoooooooof  oo  o,ii*i4*oot’7*i*iti.o»  «.»i*7»n**'*«i******94 

a 0.  ' .'OOOM'V'OOOOuOOl  00  •0<ltl*tt4?t>43llltI-04  a . 100'  l*t7ll*30*l«»'l« 

« f . 'OOOOI'l  uOOOdOoOOf  00  •C.f**J»»44»4»4ilJ*,»04  a .1 i8***77l*io*07***g« 

10  0. 0 ’OjOOt  uC  JOCOCOO?  00  •0.3t014ftl|U0100«C04  0,14«*i81»**57i***«'94 

H 0,  OOOOOI'OOOOOOvOJt  00  -C  ,58l7t7*8Jl0’ltt*|.0*  *.18308873016**74*6-9* 

1«  0,  0 JOOOOtuOuOCOOCOI  00  -0 . 41 0>l|t  4J4»  1|3|*(  . 04  a , 101 4M I 0 f 36  1 *0»56  ■ 9 « 

to  o.coooeop.'Poocoiooi  oo  q, oo.ooqqooijooopoooi  qo  p.M#*8q3t77vig*»>».g* 

i o, j 'cooototkoiooooi  oo  o.oooootpoqoooboqoi  oo  e.fioopqpoooooomo*  jg 

} •O,6'1363*o*7*l57t*6-04  •0.to’‘05*”»M4«I»C0*  0 . 1 56o"8p84  1.'»31*le- J« 

J •),1«44)»II1)(:IM«MI  •0.»*i*4Sl5t*4***tl|.0«  *0  . | »*6  M*I|l 7 .)»»**»  * I* 

4 •0.*4l**JOtM«>4*C4«-03  •;.T«»4?4l»»»M|»04|«04 

0 *0 , a^»43f»4»*»  >374»;..03  ■t,|im|l4l)|l|4«IE-|l  •M)ltltl4t|lollllkI<« 

a •C.»4J1*01?1I141(I03»*03  •O.i*limiTIIll»«T|>01  ■|1*oM|»4j<«lil»l*it 
■ *0.  1 j3o»lllP»m*t#f*0»  >0,  ll«MI»4|444T»I«C03  •(,84*0U8l*S374»l*t-J,» 

V •o.il»»J*44ll**3*To*-OI  •0>l"l*3*77l*ll47?4|.03  *0 .84*PJ857j*S8**006- >3 

4 •p.ii*?iM»»s,’it4?e*oi  •o.i*i«ig»i*»»’J’gt»*oJ 

1C  •0-I97014l4l0llt’ll|‘03  ■0.»;I4MH(4I)C»I|-I1 

11  *0,  14;t}i4ia»ai44»3E.D|  .g , 101*l0*0»>*14tl7|-03  -0, »tt*l»*3»3864**<6- -4 

1}  •!  , l#C*43ao4  rou»*»|-CJ  -0  , Illl,aa044l4l43»4|.03 

i3  -5,i«**i»»«io’ioi*»f-oi  o.oooooeooooooooooi  oo  •o.tiiiJ»»*i»jo*t4>««  u 

1 0, OOOCOCOOO iOSOgOOf  00  0 , flOOOOO  00  0 00  0 OOCOt  00  0 , 6-0*0  •'  000  n 9 * i'  0 00  0»  l< 

: o. ooi'oocooocojoi oo‘  oo  o.o4i,»»i»»s»ngni*ot  .".no* '»*5’»av7g**6.g* 

3 3.010009000(0800006  00  -O.*88»>1i**»7*0Sl76*O*  - 1 . *7*n  ,*5i vaalolg** C* 

* O.OcOOOCOOOCOJQlOC*  00  •0,11*7**87ll*r»»|16.03  1,ll46i3«3*7;97**3«.|.4 

* 0,  "1(000900008300006  OC  -0.28*541458 J0»2*758-0*  ",S4lJt73*H*41»*74«-l  J 

a 0.  noooocooooo  jOOOOf  09  -0  , l*7l**(**78l  0*44f  04  0 , I 141  i<4(il47.  1 4»*6  *l  X 

y O.PCOOOCO'jCOOCOCOOE  00  -0.182«ll357l541*»3|-0S  i'.14"l*6n1*l»07«,»6*l* 

» J.OpOOOCOCOOOOOOOOf  OO  •P.102?l*t71l04»t5»6.0S 

4 1,  OiMicocopCwOjogoo*  00  -0.2t8*2*t|t345oSo*6-e*  a.i  >»ga»74(376i*>*»*n 

ij  0, eooooooiooa'.'ooooe  00  -o,i4i*ot*3o7cit»o7*-o*  ».tt3i.437i»;«.764»»-o< 

11  o.ooooeoooooo.'oooot  oo  •o.m»iiogg*iJ4‘*tt*04  i,i»3*’»n7a»*»3i2»»-i4 

12  O.OliOOOCOOOOOJOOOO'  00  • O,iu»27ti7'»O45*37|.0*  (!,7i»(««5t*697t*3<6*(* 

II  0, 0.'COOOOvOOOIOOOOF  0 0 O.OOOOOOOOOOO'-OOOOt  OO  a,?3it  ,4I.I.(«»3J1»*«*14 


V1(«,S.  mi 
0.  uo'i'oooacoeooo'.of 
O.OOO.OOCISOCOOOiOE 
o.cjoooooiooooooooi 
.i.coeooouooaiooocat 
o.ooooocaooococooof 
0 . OOuO-OOOOOOOOOJOE 

з. oooo)oo"coooao:o5 

O.OOOOJPOOCOlOCOlOf 

0.0')li030(l900"00900e 
0,  ojoooooaoooojooof 
O.OOOOOOOOOOOOgOOOt 
I).  0 )000000000010306 
g.OOOOIOOOOOjOOOoOt 
0(147*0000000000301 
0il«7l?J7l0»?J*4.lE 

и,  1447*4*431*07*401 
o.iigoiH'4i*i**?*«f 

0. 110*3»V.l#7lJM0lE 
g,lJ070i3*j334»*( 3e 
>l,Ud*10*»*14»704Jf 

1, )17543J»»51010)26 
0,  .I4?«33530»26»l36 

0,m«*«4*410*j7,6f 

0(10**31- . »3*3»0»E 

0 ( 1 3**0154*3 '147906 

0(10*0***nO»3H*OlE 

0,»l**5»7»0*5»4707e. 

0.»lSg»»7lo»*»47t7E- 

0.»l5*557*g(55l74?6- 

O.SlS»*S7$o*3*47a7E- 

0.»,'i»0»7§og“J4747E- 

0.»i#t»57tO»g»47g7** 

0,5 150**7*0 8 5*47* 7 *• 

O.*l5»5»75o«0547»7t. 

0,*15*’>57fo»5547»7|- 

0,5l5*o575o85547*7(» 

0.5l5«5575g*5547t7i> 

0,51**5*750***47476. 

0, 515*55750*55*7*71. 


Ot-01 

0*47*5  I *t  P0r»Jla«T|$ 
«I(N,a,  W*l 

0,"0«000000«000c"0(  ao 

0,  742720771*71 -25*6  ao 
0,4414*7*7*44*4*7*1  10 

i;7J4l*77»|*4g770?6  00 
30 

0,111**1***17774448  11 
1,1 4*8*1 4 gf7* 73? 148  "1 
0.17431(7031041*408  01 
0.1«*7t*3**»*»74H8  11 

0. 71***>**«tM3«118  01 

1, ?1017004**7(«0226  01 
1,77441717*7*145*38  01 
O.lOOpOOOOOOOOOOOOF  ,11 

0.00000000*00000108  00 

0,7**01*11481 4*3*08  00 
0, *11**401**03***78  00 
0;74*731124»»47?*0€  00 
0,*»H*100U*7303*E  00 
0,1 13 t**733**0 9*5*8  01 
0;i47**o*l70*o57*l6  01 
0^172*75*2741*142*6  01 
O,1*7*0528o58*,1O76  01 
0,77l**»*7l7*1*7.1»6  01 
3,2«*0*0773*30**2*6  01 
01?73«11Q02**300176  01 
OjlOOOOOOOSOOOdOOOE  01 
0,000090*0000000008  00 
0,751**0**502033148  00 
0. *02333*0*77320*58  00 
0.7*2no*»»**»*l*2f  00 
O',  1002877**7*143708  0| 
0,12*20*7***5324546  Oj 

o;i*oi*»i»**o**i**s  it 
0il7*l7*3***7**7*98  01 
0, 20814*2*3***4*706  01 


7*11,0',  l»»> 

, 147*010i000''0'l006  01 

. 1421 736773al7S*35  01 
,124»»47'i*>.430:‘l*8  01 
. 1?[14?7*1*  >107311 706  01 
,11»»».71  1704*71314  01 
, 1101  4*3H*?1«0,'U*8  01 

,11 474479974;* .11*6  gv 
,115*0134*51434166  01 
, 1 '070777447149736  gl 

,115425054401, 1*6*5  01 

,1'»?017'' *3770247.  01 
,11*130*1*71141746  01 
,11*1*8/1 >1414*716  01 
,129**71,1771  146*26*16 

,i.3io2as7ir*;o2>*6-oi 
,3*7*11**»*9'**311E-0l 
,074*91  1 1 , 0?14l696*M 
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Staples  tt  Time  Step  125  of  Surface  Normal  Components  Array 
for  M ■ 2,  12,  and  22  and  of  Stress  Subincrement  Array  for 
Layers  K • 1 and  2 
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Tabic  R.  19  Staples  for  M ■ ?»  12,  ana  22  of  Displacement  Increments 
Array  During  Time  Increment  249  to  2S0  and  of  Cartesian 
Coordinates  and  Pressure  Arrays  at  Time  Step  250 
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Table  $.20  Samples  at  Time  Step  2S0  of  Surface  Normal  Components  Array 
for  M ■ 2.  12,  and  22  and  of  Stress  Subincrement  Array  for 
Layers  K > 1 and  2 
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Table  5.23  Samples  of  Energy  Balance  and  of  Surface  Strains  Printed  Output  at  Time  Steps  250  and  500 
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Figure  5,8  Isometric  and  Cross-sectional  Cal  Comp  Plots  of  the  Deforming 
Middle  Surface  at  Selected  Time  Steps  Showing  True 
(Unmagnified)  Displacements 
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TIME  (*10*2) 


a.  Entire  history  of  the  energy  balance  from  0 to  643  microseconds, 
showing  in  ascending  order  the  kinetic  energy,  total  energy,  total 
energy  plus  damping  work,  and  external  work. 


120  r 


TIME  (*10'3) 

b.  Blow  up  of  the  history  of  the  energy  balance  from  300  to  643 
microsecond,  showing  in  ascending  order  the  kinetic  energy,  total 
energy,  and  total  energy  plus  damping  work. 


Figure  5,9  Cal  Comp  Plots  of  the  Energy  Balance  for  the  Impulsively 
Loaded  Cylinder 
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6.  IMPLEMENTATION  OF  LOADINGS  AND  INITIAL  GEOMETRIES 

REPS I L con  be  made  to  accept  arbitrary  impulse  loadings,  arbitrary 
time  and  space  varying  pressure  loadings,  and,  within  certain  limits, 
arbitrary  initial  shell  geometries.  This  involves  a small  amount  of 
programming  confined  to  certain  REPSIL  subroutine:  INVEL,  PRESS  and  INGEOM. 
This  chapter  describes  the  acceptable  ways  of  implementing  loadings  and 
geometries  into  REPSIL  so  as  to  be  compatible  with  the  code's  formulation. 

6.1  Two  Approaches  to  Implementini  Loads  and  Geometries 

Implementing  a loading  or  an  initial  geometry  in  REPSIL  basically 
involves  assigning  to  each  mesh  point  (m,n)  a value  of  initial  impulse 
velocity  or  a value  of  pressure  for  each  time  step,  or  values  of  the 
initial  coordinates  of  the  middle  surface.  These  values  can  be  assigned 
in  two  ways:  first,  they  can  be  read  off  a tape  or  cards  and  assigned 
to  the  mesh  points  by  the  appropriate  subroutine;  second,  an  analytical 
expression  programmed  into  the  appropriate  subroutine  can  generate  these 
values,  which  the  subroutine  then  assigns  to  the  mesh  points.  The  first 
approach  requires  that  data  be  generated  outside  the  program  and  be  read 
onto  a tape  or  punched  onto  cards.  The  data  itself  can  be  generated 
analytically,  numerically  or  experimentally  --  this  approach  will  accept 
all;  therein  lies  its  advantage,  especially  for  ad  hoc  problems.  Its 
drawbacks  are  the  tediousness  of  reading  onto  a tape  or  punching  onto 
cards  large  numbers  of  values  especially  when  many  mesh  points  are 
employed,  and  necessity  of  regenerating  new  data  for  a given  physical 
problem  whenever  the  number  of  mesh  intervals  is  changed.  The  second 
approach  has  none  of  these  drawbacks,  but  does  require  that  the  data 
be  expressible  analytically.  These  analytical  expressions  are  most 
conveniently  written  as  functions  of  the  underlying  material  coordinates 

(n1,  n2)  rather  than  the  mesh  numbers  (m,n),  for  then  the  forms  of  the 
expressions  are  not  affected  by  a change  in  the  number  of  mesh  intervals. 
The  value  of  such  an  expression  at  a mesh  point  (m,n)  is  obtained  as  the 

1 2 

value  of  the  function  at  the  material  coordinates  (n  , n ) corresponding 
to  the  point  (m,n)  : 

n^m)  = n*  ♦ (m-1)  An1  , n2(n)  ■ n2  + (n-1)  An2  (6*1) 


* These  equations  are  closer  to  the  indexing  of  m and  n used  in  the 

program  than  (2.1),  reflecting  the  fact  that  FORTRAN  does  not  permit  ( 

zero  values  of  array  indices.  i 

\ 
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where,  for  M x N mesh  intervals,  l<ra<M+l,l<n<N+l  and 


An 


1 


M 


(6.2) 


In  the  subsequent  sections,  in  which  the  implementation  of  the  loading 
and  geometry  subroutines  are  individually  described,  the  two  approaches 
are  again  covered,  as  they  apply  to  each  subroutine. 

6.2  Subroutine  INVEL 


Initial  impulse  loadings  are  specified  in  subroutine  INVEL.  At 
the  zeroth  time  step  INVEL  assigns  a value  of  impulse  velocity  to  each 
mesh  point.  The  velocity  is  free  to  vary  spatially  over  the  shell 
surface,  but  at  present  is  restricted  to  be  directed  along  the  normal 
a minor  restriction  that  is  easily  remedied  by  allowing  tangential 
components  to  be  defined  through  the  middle  surface  basis  vectors,  see 
Section  2.3. 

As  stated  in  the  previrus  section,  two  approaches  can  be  used  in 
programming  INVEL.  With  the  first  approach,  INVEL  simply  reads  off 
cards  or  a tape  a sequence  of  values  corresponding  to  the  normal 
velocity  v at  each  mesh  point.  Each  value  is  immediately  multiplied 
by  the  surface  normal  at  tho  mesh  point  to  give  components  of  the 
velocity 


v*  ■ v n*  , (6.3) 

which  are  then  stored  in  the  as  yet  unused  three  M x N arrays  Au*(m,n). 
A form  of  this  approach  is  used  for  the  subroutine  INVEL  presently  in 
REPSIL,  which  is  specified  on  input  Card  15  and  16,  see  Section  3.2. 

(A  listing  of  this  subroutine  is  given  in  Appendix  E.) 

The  second  approach  requires  some  analytic  expressions  of  the  form 

v * v (n1,  n2)  (6.4) 


for  the  normal  velocity  as  a function  of  the  material  coordinates.  The 
material  coordinates  are  limited  to  the  rectangular  domain  specified  in 
INGEOM,  see  [6.10)  of  Section  6.4.  With  this  approach,  (6.1)  and  (6.4) 
are  born  programmed  into  INVEL;  (6.2)  need  not  be  included  since  the 

increments  :.na  are  calculated  in  INGEOM.  INVEL  determines  the  normal 
/elocity  it  me'h  points  by  calculating  the  values  of  the  material 
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coordinates  at  the  mesh  point  (m,n)  using  (6.1)  and  substituting  these 
values  in  (6.4)  to  obtain 


v(ffl#n) 


v(n1(m) , 


n‘(n)). 


(6.5) 


As  with  the  first  approach,  these  values  are  immediately  multiplied  by 
the  normal  to  obtain  the  components  of  the  velocity  at  (m,n) , which 

are  then  stored  in  the  three  M x N arrays  Au*(m,n). 

6.3  Subroutine  PRESS 


Time/space  varying  pressure  loads  are  specified  in  subroutine 
PRESS.  Each  time  step  this  subroutine  assigns  a value  of  pressure  to 
each  mesh  point. 

With  the  fir  ;t  of  the  two  approaches  to  programming  already  mentioned, 
at  each  time  step  PRESS  reads  off  cards  or  (more  usually)  a tape  a sequence 
of  values  of  the  pressure  P at  each  mesh  point  and  stores  these  values 
in  the  M x N array  P(m,n)  for  later  use  in  subroutine  MOTION,  see 
Section  2.3.  This  approach  has  been  used  in  REPSIL  for  a number  of  cases, 
in  which  the  pressure  data  has  been  experimentally /numerically  venerated; 
reports  on  these  cases  are  in  preparation. 

For  the  second  approach,  analytic  expressions  £c,r  the  pressure 
as  a function  of  the  material  coerdinates  and  the  ‘.irae: 

P - F ( n1.  n2,  t)  (6.6) 


are  programmed  into  PRESS,  along  with  (6.1);  the  material  coordinates 
are  limited  to  the  rectangular  domain  (6.10)  specified  in  INGEOM.  At 
each  time  step  A,  PRESS  calculates  the  pressure  P at  each  mesh  point 
(m,n)  by  determining  the  material  coordinates  of  the  mesh  point  fr  a 
(6.1),  the  value  of  time  at  time  step  £ from 


t(£)  - A At 


(6.7) 


and  substituting  these  values  in  (6.6): 

P(m,n)  - Ptn^m),  n2(n),  t(A)).  (6.8) 

As  with  the  first  approach,  these  values  are  stored  in  the  M x N array 
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P (m,n).  This  approach  is  used  to  generate  the  pressure  data  for  example 
problem  1 (Section  S.l);  a listing  of  this  PRESS  subroutine  is  in 
Appendix  E. 

6.4  Subroutine  1NGE0M 


The  initial  geometry  of  the  shell  is  specified  in  subroutine 
1NGE0M.  A new  subroutine  INGEOM  must  be  written  for  each  initial  geometry 
or  at  least  each  family  of  initial  geometries.*  The  only  restrictions 
on  the  admissable  geometries  are  that  the  middle  surface  be  simply 
connected  and  bounded  by  four  smooth  edges,  such  that  none  of  the  corners 
formed  by  intersecting  edges  are  reentrant  or  straight. 

Particularizing  the  remarks  of  Section  6.1  to  initial  lometries, 
the  basic  function  of  INGEOM  is  to  set  up  a correspondence  ^etween  mesh 

numbers  (ra,n)  and  coordinates  y * in  3-space  through  which  the  middle 
surface  of  the  shell  initially  passes;  this  correspondence  should  be 
one-to-one.  As  already  mentioned,  two  approaches  can  be  used  in 
programming  INGEOM.  First,  INGEOM  can  just  comprise  instructions  for 

12  3 

reading  off  cards  or  a tape  a sequence  of  ordered  triplexes  (y  • y * y ) 

12  3 

and  storing  these  in  three  M x N arrays  y (m,n),  y (m,n)  and  y (m,n). 

Of  course,  the  sequence  of  triplexes  y*  must  be  chosen  carefully,  not 
only  for  sake  of  obtaining  a one-to-one  correspondence,  but  also  in 
order  that  the  correspondence  be  topologically  continuous  in  the  following 
sense:  neighboring  points  in  space  are  assigned  adjacent  mesh  numbers  in 
the  proper  order,  as  indicated  in  Figure  6.1.  This  approach  requires 

that  the  increments  in  material  coordinates,  An*  and  An2,  be  assigned 
convenient  values  that  are  subsequently  used  to  form  finite  difference 
quotients.  Also,  it  is  important  that  the  number  of  mesh  intervals 
M and  N assigned  elsewhere  in  the  program  jibe  with  the  spacing  implied 
by  subroutine  INGEOM. 

The  second  approach  uses  one  or  more  sets  of  analytic  expressions 
giving  the  Cartesian  coordinates  y*  of  the  aiddle  surface  parametrically 
as  functions  of  the  material  coordinates  n°: 

y1  « y1(n1,n2J  , y2  ■ y2(n1,n2)  , y3  ■ y3(n1,n2)  . (6*9) 


These  functions  are  required  to  be  continuous  and  one-to-one  in  the 
domain  over  which  the  material  coordinates  vary;  the  domain  itself  is 


* REPSIL  has  INGEOM  subroutines  for  a flat  plate,  cylindrical  shell  and 
conical  shell  programmed,  see  Section  3.2  and  Appendix  E. 
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limited  to  som  rectangle  in  tho  material  coordinates  piano: 


nj  < n1  < n*  , n2  - n*  * nf  * (6.10) 

Consequently,  tho  paraMtric  roprosontation  of  tho  middle  surface  is 

1 2 

simply  a one -to- one  continuous  map  of  a roc tangle  in  tho  n , n » 
piano  into  3- apace,  from  which  automatically  follow  the  aforementioned 
topological  continuity  and  restrictions  on  tho  boundary.  It  should  be 
noted  that  tho  paraaetric  roprosontation  is  not  unique- -many  exist  for  a 
given  surface.  Moreover,  tho  aatorial  coordinates  need  not  have  physical 
significance,  such  as  arc  length,  angle,  etc.,  although  often  a 
siaple  transformation  can  give  thea  such  Maning. 

With  the  second  approach,  equations  (6.9)  are  programed  into  INGEOM, 
as  well  as  (6.1)  and  (6.2).  For  a given  physical  problea,  the  extent 
of  the  shell  is  fixed  by  the  liaits  on  the  aatorial  coordinates  (6.10). 
Once  the  number  of  aesh  intervals  M x N are  specified,  the  subroutine 

computes  the  constant  intervals  An°  using  (6.2)  and  the  values  of  the 

i 2 

material  coordinates  n(a)  and  n (n)  at  the  aesh  points  (a,n)  using 
(6.1).  Substituting  these  values  of  the  aatorial  coordinates  into  the 
analytical  expression  (6.9),  the  subroutine  calculates  the  Cartesian 
coordinates  of  the  aesh  points: 


yl  ■ y^a.n)  , y2  - y2(a,n)  , y5  - y5(m,n)  , (6.11) 

1 2 

thus  aapping  the  rectangular  M x N aesh  in  the  n , n plane  into  a 
curve linear  aesh  in  3-space,  as  pictured  in  Figure  6.1.  As  with  the 
first  approach,  the  subroutine  stores  these  values  in  three  M x N arrays. 

The  second  approach  to  programing  INGEOM  will  be  illustrated 
with  an  exaaple  of  a shell  having  tfor  its  initial  aiddle  surface  a 
frustua  of  a circular  cone  with  an  axial  length  L,  a small  radius  Rq  and 

12  3 

large  radius  Rf.  let  the  frustrum  be  located  relative  to  the  y , y , y 

axis  as  shown  in  Figure  3.8.  With  this  orientation  the  coordinates  of 
the  frustum  are  parametrically  given  by 

1 R 

y1  » n1  sin  n2  , y2  ■ 5 — L»  y3  ■ h1  cos  n2  , (6.12) 

Rf  " Ro 


wit.",  the  material  coordinates  limited  to  the  domain 


(6.13) 


R < fl*  < R*  ti  ()  < ri‘  " * « • 

o - t 

In  this  representation  both  parameters  have  physical  significance:  n1 

2 

being  the  radius  from  the  cone  axis  and  n the  angle  about  the  axis. 

This  representation  is  not  unique;  for  oxomplo,  nl  can  be  replaced 

a i 

by  a parameter  n measuring  arclength  along  generators  through  the  trans- 
formation 

*1  1 

n * n esc  a , 


with  . the  cone  angle: 

Rf  - Ro 

a » arctan  j- , 

resulting  in  the  representation 

1-1  ■’2-1  3 

y * n sin  a sin  , y ■ (n  - Sq)  cos  a , y 

with  domain 


(6.14) 


-1  . 2 
n sin  a cos  n , 

(6.15) 


’ 7 

(«  Rq  esc  a)  < n‘  < (■  R£  esc  a),  0 < n*”  < 2 m 6) 

Clearly,  a transformation  replacing  n“  by  circumferential  arclength 

2 

cannot  exist,  for  it  is  impossible  fer  the  same  angle  n at  different 
location  along  the  cone  axis  to  subtend  equal  arclength  on  the  surface 
of  a cone.  For  the  same  reason,  the  imago  of  an  M x N mesh  under  the 
representation  (6.15)  or  for  that  matter  (6.12)  will  yield  a curvilinear 
roctangular  mesh  with  nonequal  rectangles:  as  shown  in  Figures  3.8  and 
0.2a,  while  the  meridional  lengths  of  rectangles  are  equal,  the  circum- 
ferential lengths  increase  with  the  radius.  However,  it  is  possible 

1 *1  -1 

through  a judicious  transformation  of  : or  n into  say  n to  obtain 

nonuni  form  meridional  increments  that  give  similar  rectangles  (i.e. 
rectangles  of  constant  side  ratio).  Using  differentials,  the  condition 

- 1 2 

that  constant  increments  An  and  An  g-ve  rectangles  with  a constant 
m.rl  ional  to  circumferential  side  ratio  of  ran  be  wr  tten  as 


An1  | / | ^~2  Lr-‘ 

3n  3n 


Assuming  that  n*  is  a function  of  n*  and  using  (6.15),  this  condition 
is  shown  to  be  equivalent  to  the  differential  equation 

a K sin  a , K * « — - - 

dn1  A n1 

Chosing  the  lower  limit  on  r/  to  be  zero  for  the  sake  of  convenience, 
the  solution  of  this  differential  equation  yield  the  transformation 

*1  c „ K sin  a n* 
n = s0  e 


-1  f 

in  the  range  0 < K sin  an  <10  q--  . This  transformation  is  substituted 

^o 

in  (6.15)  to  give  the  parametric  representation 
y*  = SQ  sin  a X sin  n2  e ^ s'*'n  ° ^ 


y2  « Sq  cos  a x (eK  sin  a nl  -1) 


y3  = SQ  sin  ax  cos  n2  e K sin  a n 


-1 


(6.17) 


over  the  domain 


-1  °f 
0 < K sin  a n < In  g— 

o 


, o < n < 2 it 


(6.18) 


Since  the  program  specified  the  number  of  mesh  intervals  M and  N rather 

than  the  increments  Ana,  the  constant  K can  be  conveniently  set  equal  to 
unity.  Also  (6.15)  and  (6.17)  can  be  summarised  in  a single  general 

~1 

representation  by  a change  in  *he  scale  of  n , giving  the  representation 

1 2 1 

y = SQ  sin  a sin  n f(n  sin  a) 

2 1 
y = SQ  cos  a [f(n  sin  a)  - 1] 

3 2 1 

y = S sin  a cos  n f(n  sin  a). 


■l 


\ 

i 


(6.19) 


The  programming  of  this  representation  is  straightforward  and  is  included 
in  the  listing  in  Appendix  E.  Figure  6.2  shows  the  difference  between  the 
two  types  of  spacing  for  given  M x N mesh  intervals,  reproduced  from  Cal 
Comp  plots. 


a.  Constant  meridional  increment  b.  Constant  (almost  square)  side  ratio 


Figure  6.2  Comparison  of  the  18  x 9 Mesh  Generated  by  Subroutine  INGEOM 
for  the  Frustum  of  a Cone  Using  the  Constant  Meridional 
Increment  Option  and  the  Constant  Mesh  Proportions  Option 
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APPENDIX  A. 

FINITE  DIFFERENCE  OPERATORS 


The  partial  differential  equations  solved  by  the  REPSIL  code 
employ  the  following  partial  derivatives  with  respect  to  the  material 
coordinates : 


3 3“ 

2 » r~2 

3r,  (an  ) 


32  _ 
3n3n2 


3‘ 

2 • 

(3n  r 


These  partials  are  approximated  in  the  code  by  finite  difference 

2 

operators  of  order  | An  | in  accuracy.  These  operators,  which  were 
symbolized  by  their  corresponding  partials  in  Section  2.3,  will  now 
be  given  explicitly. 


Let  F(m,n)  represent  a typical  mesh  function  (the  position 

coordinates  y1  or  the  bending  resultants  , for  example)  defined  over 

the  domain  of  mesh  points  m.  < m < and  n.  < n < n-.  At  interior 

i - - r i - - r 

mesh  points  where  the  mesh  numbers  (m,n)  satisfy  nn  < m < m^  and 

< n < n^,  central  difference  operators,  symbolized  by  the  superscript 
c,  are  used: 


AFC 

(m.n)  . F(m+l,n)  - F(m-l.n)  , 

An1 

2AnJ 

AFC 

(m,n)  _ F(m,n+1)  - F(m,n-1), 

2 

An 

2An2 

2 c 

A F (m,n)  _ F(m+l,n)  - 2F(m,n)  + F(m-l,n)  , 

(An  ) 

t a 1,2 

(An  ) 

A2FC  (m,n)  _ F(m,n+1)  - 2F(ra,n)  + F(m,n-1)  , 

(An  ) (An  ) 

-~"FC  (m,n)  _ F(m+l,n+l)  - F(m-l,n+l)  - F(m+1,  n-1)  + F(m-l,n-l)  , 

, 1,  2 = . 1.  2 
An  An  An  An 

1 2 

with  An  > An  (constant)  increments  in  the  material  coordinates.  Notice 
that  the  mixed  partials  operator  involves  the  successive  application  of 
the  first  partial  operators: 
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(m,n) 


(m,n-l) 


or  more  compactly: 

A2FC  = A fhFc\c  . A /AFC\C 

AnTAn?  InTyAn^/  = a7?  \aTTT ) 


Along  the  boundaries  where  in  = 


or  or  n 


n. 

j 


or  central 


difference  operators  cannot  be  used  to  approximate  all  partials  due 
to  F(m,n)  not  being  defined  outside  the  domain  of  mesh  points.  Rather, 
some  of  the  above  central  difference  operators  are  replaced  by  either 
forward  or  backward  difference  operators.  Specifically,  along  m » nu 

AFC  A2FC 

or  only  the  central  difference  operators  and^— 2j2are  employed. 


The  remaining  operators  are  replaced  by  forward  difference  operators 
(denoted  by  the  superscript  f)  along  m * m^: 


f 

AF  , , _ 3F(m,n)  - 4F(m+l,n)  + F(m+2,n)  , 

= " 2Anl 


A F* 

1,2 

(M  ) 


(m,n) 


2F(m,n)  - 5F(m»l,n)  + 4F(m+2,n)  - F(m+3,n)  , 

(An1)2 


A2Ff 

AniAn2 


(m,n) 


3 4n2  ‘m>">  - 4 * Si  Cm*2-n) 

__ 


and  by  backward  difference  operators  (denoted  by  the  superscript  b) 
along  m = m^: 


AF 

Anl 


(m,n) 


3F(m,n)  - 4F(m-l,n) 
2Anl 


F(m-2,n) 


A2Fb  _ 2F(m,n)  - 5F(m-l,n)  + 4F(m-2,n)  - F(m-3,n) 

(Anl)2°n,nJ  " (An-1) 2 
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I 


c c c 

2 h 3 (m,n)  - 4 — (m-l,n)  ♦ ^y  (m  - 2,n) 

A*F  (m,n)  « An  Ar£ A?l_ 

” lA  5 OA  l 

An  An  2An 


Notice  again  that  the  mixed  partials  operator  involves  the  successive 

application  of  first  partial  operators  (forward  or  backward  with  respect 

1 2 
to  n and  central  with  respect  to  n ): 


A2Ff 

An*An2 


(m,n) 


_A 

An 


(S) 


A2Fb 

AnJAn2 


_A 

An 


(S) 


Where  possible  the  code  takes  advantage  of  this  fact  to  reduce  calculations. 

» pC  . 2pC 

Along  the  boundary  n « n.  or  n.  the  central  operators  r and  - 7are 

1 An  (An  ) 

retained,  while  the  remaining  operators  are  replaced  by  appropriate 
forward  or  backward  operators  obtained  from  the  above  operators  by  inter- 

1 2 

changing  the  roles  of  m and  n,  and  n and  n simultaneously. 


At  the  comers  of  the  domain  where  m * nr  or  and  n * n^^  or  nf 

the  remaining  central  operators  are  replaced  by  the  forward  or  backward 
operators  appropriate  to  the  common  boundaries;  in  particular,  the  mixed 
partials  operators  involve  the  successive  application  of  the  appropriate 
forward  or  backward  first  partial  operators  — for  example,  at  m « m.  and 
n * ii£ 


A2F 


AnXAn2 


APPENDIX  B 

COhMENTS  ON  ELASTOPLASTIC  STRESS  EVALUATIONS 


In  the  REPSIL  code  stresses  it  tine  t are  calculated  in  the 
nanner  of  (finite)  incremental  plasticity  using  the  incremental  strains 

Aeg  which  occur  between  time  t - At  and  time  t as  well  as  stored  values 
of  the  stresses  at  time  t - At.  In  the  finite  difference  analysis 
these  calculations  are  made  at  every  (m,n)  mesh  node  for  each  k layer. 
Additionally,  where  the  strain-hardening  constitutive  option  is  used, 
stresses  or,  more  precisely,  substresses  are  calculated  for  each  j 
sublayer  of  the  mechanical  sublayer  model  (see  [2;  Section  5.4.2])  and 
the  stresses  in  each  k layer  are  determined  as  weighted  averages  of 
the  stresses  in  the  j sublayers. 

At  locations  where  the  incremental  strains  Aeg  entail  plastic 
flow,  the  flow  parameter  AX  of  (2.24)  must  be  evaluated  as  the  root  of 
a quadratic  equation,  see  (2.26).  An  algorithm  for  dealing  with  the 
various  types  of  roots  which  may  occur  has  been  developed  by  Huffington 
[3].  If  complex  roots  occur  this  algorithm  subdivides  the  elastic  stress 
increment,  defined  by  (2.18),  into  L equal  subincrements  (for  purposes  of 
stress  calculation  only)  in  each  of  which  elastic  stress  increments 
Ea 

Aop  /L  take  place.  Stress  calculations  are  performed  for  each  of  the 
L subincrements,  consecutively.  If  at  any  stage  of  this  process  a complex 
root  is  obtained,  the  value  of  L is  increased  and  the  calculation  is  re- 
initiated. This  procedure  is  continued  until  real  stresses  are  determined 
for  time  t. 

Experience  with  this  procedure  has  shown  that  under  certain 

circumstances  it  may  be  desirable  to  use  the  subdivided  increment 

algorithm  even  when  real  roots  are  obtained  for  the  full  increment. 

An  illustration  of  this  is  depicted  in  Figure  B.l,  where  for  simplicity 

12  1 
it  is  assumed  that  Oj  and  o 2 are  principal  stresses  (o2  ■ 0).  The 

values  shown  on  this  figure  were  taken  from  an  actual  computer  solution. 
Starting  from  the  stress  state  labeled  "1",  the  consonants  of  the  trial 

E 

elastic  stress  vector  Ao  were  calculated  using  (2.18j  and  the  correction 

stress  vector  - AX  o was  determined  by  use  of  (2.23)  and  (2.28).  These 
calculations  which  resulted  in  a real  root  for  AX,  indicate  that  the 
actual  stress  increment  Aa  for  the  full  time  step  is  represented  by 
the  vector  joining  points  "1"  and  "2".  Similarly  calculations  for  the 
next  time  step  result  in  a stress  increment  from  point  "2"  to  point 
"3"  and  subsequent  calculations  indicate  continued  oscillations  between 
the  third  and  fourth  quadrants. 

Suspecting  that  these  calculations  were  inaccurate,  the  calculations 
for  the  first  time  step  were  performed  using  the  subdivided  stress 
increment  algorithm  with  l.=2.  At  the  end  of  the  first  lu.f  increment, 
the  stress  .,Utte  labeled  "1.5"  was  predicted  anc. , fox  end  of  the  second 
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half  step,  the  point  labeled  "2*".  Thus,  the  revised  stress  increment 
for  the  full  cycle  is  presented  by  the  vector  Ao*.  Repeat  applications 
of  this  algorithm  using  larger  values  of  the  sub increment  counter  L 
did  not  produce  any  appreciable  revision  of  the  stress  increaent  vector 
Ao*  so  that  this  procedure  appears  to  be  rapidly  convergent. 

It  is  apparent  that  the  inaccuracy  associated  with  the  use  of  L«1 
in  this  exaaple  results  from  the  large  excursion  outside  the  yield 

surface  performed  by  the  Ac  vector.  As  a rational  approach  to  arriving 
at  t appropriate  value  of  L to  use  in  a given  case,  consider  that  the 
yield  surface  is  surrounded  by  concentric  ellipsoidal  annuli  which  are 
labeled  L*l,2,3,***  as  one  progresses  radially  outward  froa  the  yield 
surface  (see  Figure  B.l).  The  elastic  region  within  the  yield  surface 
is  arbitrarily  designated  L»0.  Then  the  appropriate  value  of  L for 
the  subincreaent  calculation  would  be  determined  by  the  designation 

£ 

of  the  ellipsoidal  annulus  in  which  the  tip  of  the  A0  vector  is  located 

i.e.,  the  trial  stress  state  $ given  by  (2.19).  The  analytical  form- 
ulation of  the  criterion  for  selecting  L may  be  expressed  as: 


L « INT  YLDFAC  y /— * °°  ■ -1 J [ +1 


where  INT  si  nifies  the  "integer  part  of"  the  quantity  within  the  curly 

T 

brackets.  that  * , the  function  defined  by  (2.20)  with  the  com- 

ponents of  a substituted,  is  already  calculated  within  the  STRESS 
subroutine  to  test  for  yielding.  The  coefficient  YLDFAC  is  a parameter 
(not  necessarily  integral)  which  permits  variation  of  the  "thickness" 
of  the  concentric  ellipsoidal  annuli  in  stress  space.  The  user  should 
choose  YLDFAC  to  suit  his  compromise  between  minimum  computer  time 
(YLDFAC»0,  for  which  no  subdivision  of  the  elastic  stress  increment 
occurs  us  long  as  a real  AA  root  is  obtained)  and  maximum  accuracy 
(YLDFAC-*  *,  corresponding  to  differential  subintervals) . Although  no 
systematic  study  of  the  effect  of  varying  YLDFAC  has  been  conducted, 
it  appears  that  reasonably  accurate  stress  determinations  have  been 
obtained  using  YLDFAC  * 1 with  only  nominal  increases  in  machine  time. 
For  this  value  of  YLDFAC  the  ellipsoidal  annulas  interfaces  intersect 

the  o*  axes  at  integral  multiples  of  the  uniaxial  yield  stress  ctq. 

The  REPS1L  code  now  provides  an  optional  printout  of  L (m,n) 
arrays  for  each  k layer  of  the  structural  shell  at  specified  time 
cycles.  These  arrays  provide  a definition  of  the  regions  of  the 
structural  shell  within  which  plastic  flow  is  occuring  as  well  as  a 
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qualitative  indication  of  the  magnitude  of  the  flow  activity.  Where 
a strain-hardening  constitutive  model  is  being  employed,  the  largest 
value  of  L for  any  of  the  sublayers  within  the  kth  layer  will  be  printed. 
Samples  of  the  L array  print  format  arc  included  with  the  example  problems* 
see  Tables  5.8,  5.12,  5.18,  5.20  and  5.22. 


Figure  B, 1 Graphical  Representation  of  Strips  Increments 
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APPENDIX  C. 

DEFINITION  OF  PROGRAM  VARIABLES 

In  this  appendix  we  list  the  FORTRAN  variables  used  in  the  program 
and  give  a brief  description  of  each,  identifying  where  possible  the 
variable  with  the  symbol  used  in  the  body  of  the  report.  The  variables 
are  grouped  according  to  whether  they  are  integer  or  real  and  whether  they 
represent  an  array  or  not.  Within  each  group  the  variables  are  listed 
alphabetically.  Index  notation  is  applied  to  certain  sets  of  FORTRAN 
variables,  with  Greek  indices  ranging  over  the  integers  1,  2 and  Latin 
indices  over  1,  2,  3,  as  before.  These  indices  are  not  subscripted  or 
superscripted.  Latin  indices  are  distinguished  from  letters  in  the 
FORTRAN  names  by  not  being  capitalized.  Input  variables  already  described 
in  Section  3.2  are  identified  by  a superscript  f. 


C.I  Integer  Variables 


Name 

Symbol 

Description 

I 

Index  corresponding  to  surface  strain  locations, 
1 < I < NSTRN. 

11,12 

Dummy  indices  for  elements  of  the  arrays  MI 1(1) 
and  MI  2(1) . 

IBCE1S 

IBCE25 

IBCE3§ 

IBCE4S 

Numbers  controlling  boundary  conditions  along 
edges  (input  data,  card  4). 

I FUG 

Control  number  used  in  subroutine  PDATA. 

II 

Dimension  of  DAT(J)  array,  II«2*NSTRN  + 8. 

ISR§ 

Strain  rate  sensitivity  control  (input  data, 
card  6) . 

Index  corresponding  to  stress  sublayers, 

1 < J < NSFL.  Also  a general  dummy  index. 

Dummy  indices  for  elements  of  the  arrays  Nil (I) 
and  NI2(I). 

k Index  corresponding  to  layer  stations, 

1 < K < LAYER. 

KD  Dummy  argument  replacing  K. 


J 

J1,J2 

K 


Preceding  page  blank 
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t 


< 

* 

KEY 

KJ 

UMAX 

KN 

L 

LAYERS 

LC 

LINK 

LMNK 

LOADS 

LPRESSS 

M 

Ml 

MASHS 


Control  number  governing  mode  of  operation  of 
subroutine  WRTAPE:  1,  write  data  on  tape 

2,  read  data  off  tape. 

Index  corresponding  to  the  Jth  stress  sublayer 
of  the  Kth  layer,  1 < KJ  < UMAX. 

Total  number  of  stress  sublayers  in  the  entire 
thickness  of  shell , UMAX  a NSFL*LAYER. 

Total  number  of  stress  sublayers  in  the  first 
(K-l)  layers,  KN  • NSFL*(K-1). 

L Number  of  subincrements  into  which  the  elastic 

Ea 

stress  increment  La.  is  divided  for  plastic 

P 

flow  calculations  described  in  Appendix  B, 

L < 100. 

K or  K Total  number  of  layers  into  which  the  thickness 
m is  divided  (input  data,  card  2). 

Counter  for  the  elastic  stress  subincrement  used 
in  plastic  flow  calculations  described  in 
Appendix  B,  1 < LC  < L ♦ 1. 

Control  number  used  in  subroutines  STRAIN  and 
PDATA. 

Counter  for  the  maximum  number  of  subincrements 
L occuring  in  a layer,  supplying  entrees  for 
the  array  LMAT  (M,N,K). 

Control  number  governing  mode  of  loading  (input 
data,  card  5). 

Last  time  step  at  which  pressure  is  nonconstant 
(input  data,  card  5). 

m Mesh  number  in  the  n*  direction,  1 < M < 

Maximum  value  of  M at  which  strains  and  stresses 
are  calculated,  a function  of  the  edge  conditions 
along  boundary  3: 

MS,  symmetry  edge 

MM,  clamped  or  hinged  edge. 

Number  controlling  mesh  proportion  of  conical 
shell  (input  data,  card  14). 
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r 

t 

MAXC 

HB1 


MD 

ft  AMP  I 
MESH  f 
MF  I 
Mil 

m 

MQ1,  MQ2 
ft 

ftITE 

MS 

N n 


Final  time  step  (input  data,  card  3). 


Maxima  valua  of  N at  which  tha  displacement 
Increments  ara  not  modified  by  clamped  edge 
conditions  along  boundary  3: 


MB1- 


ft,  clamped  adga 

MS,  symmetry  or  hingod  adga. 


Dummy  argument  replacing  M. 


Tima  step  at  which  damping  operations  begin 
(input  data,  card  5). 

Number  of  mash  intervals  in  tha  n1  direction 
(input  data,  card  2). 

Maximum  value  of  M for  points  receiving  uniform 
initial  velocity  VR  (input  data,  card  IS). 

Minimum  value  of  M for  points  receiving  uniform 
initial  velocity  VR  (input  data.  Card  15). 

Total  number  of  mesh  points  in  the  n1  direction. 


Values  of  M at  mesh  points  bracketing  the  location 

at  which  the  displacement  U1  is  determined,  see 
subroutine  STRAIN. 


MR  - M*-2. 


Time  stops  at  which  restart  data  is  collected 
by  subroutine  WRTAPE. 


MS  - M-l. 


Mesh  number  in  the 


2 

n 


direction. 


1 < N < NN. 


N1 


N3DS 


Maximum  value  of  N at  which  strains  and  stresses 
are  calculated,  a function  of  the  edge  conditions 
along  boundary  2: 


Nl- 


NS,  symmetry  edge 

NN,  clamped  or  hinged  edge 


Number  of  time  steps  at  which  3D  plots  are 
drawn  (input  data,  card  11). 
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NCQNTS 


Minimum  valuo  of  N at  which  tha  ditplacaaent 
increments  are  not  Modified  by  clamped  edge 
condition*  along  boundary  4: 

12,  hinged  edge 

3,  c leaped  edge. 

Maxiaua  value  of  N at  which  the  displacement 
increments  are  not  Modified  by  clamped  edge 
conditions  along  boundary  2: 

I NR,  claaped  edge 
NS,  symmetry  or  hinged  edge 
Initial  tine  step  (input  data,  card  3). 

NCYC  - NCYCIE  - 1. 


NCYCLE 


NDELP 


NLPRINS 


NMESH5 


NT  LOT 


N»  ul  \T5 


Tine  step. 

Duaaiy  argument  replacing  N. 

Number  of  time  steps  between  surface  strain 
prints,  replaces  NPRINT  in  program. 

Maximum  value  of  N for  points  receiving  uniform 
initial  velocity  VR  (input  data,  card  IS). 

Minimum  value  of  N for  points  receiving  uniform 
initial  volocity  VR  (input  data,  card  15). 

Counter  indexing  the  array  JCYNLP(J). 

Number  of  times  the  array  LMAT(M,N,K)  is 
printed  (input  data,  card  10). 

2 

Number  of  mesh  intervals  in  the  n direction 
(input  data,  card  2). 

Total  number  of  mesh  points  in  the  n"  direction. 

Counter  indexing  the  array  NC3DP(J) . 

Counter  indexing  the  array  NCYCH(J). 

Plotting  tape  unit  number. 

Input  on  card  8 as  the  number  of  time  steps 
between  surface  strain  prints,  replaced  by  NDELP 
in  program.  In  program  NPRINT  gives  the  timv 
step,  at  which  surface  strains  are  printed. 


nqi.nq: 


NR 


Values  of  N at  mesh  points  bracketing  the 

location  at  which  the  displacement  U*  is 
determined,  see  MQ1,  MQ2 . 

NR  • NN-2 


NR I TL i 


NS 


Number  of  time  steps  between  collection  of 
restart  data  (input  data,  card  3). 

NS  • NN-1 . 


NSI'  L.S 


J 


NSlRNj 


NUMCY  S 


M. 


Total  numbor  of  stress  sublayers  in  each  layer  - a 
plasticity  modelling  control  (input  data,  card  6). 

Total  number  of  locations  at  which  surface  strain 
are  computed  (input  data,  card  12). 

Number  of  time  steps  at  which  JCHK(J)  controlled 
data  and  energy-work  data  are  printed  (input 
data,  card  9). 

Number  of  mesh  points  receiving  initial  velocities 
V different  from  uniform  initial  velocity  VR 
(input  data,  card  15). 


C. - Integer  Arrays 

JOlkt,J i , Print  control  (input  data,  card  8). 

JCYNLP(.T)  £ Time  steps  at  which  array  >.MAT(M,N,K)  is  printed 

(input  data,  card  1C). 

LMAT (M,NK)  L(v,n)  Matrix  of  maximum  stress  subincrements  for  the 

Kth  layer,  see  description  of  L and  LMNK,  and 
Appendix  B. 


Mi i ^ . MI2(1)  Values  of  M at  mesh  points  bracketing  the  Ith 

surface  strain  location,  MI1(I)  < PM(1)  < MI 2(1) 
= Mil (1)  ♦ 1.  * 


NC3DP (J ) 5 


Time  steps  at  which  3D  plots  are  obtained  (input 
data,  card  11). 


NCYCH(J.»i  Time  steps  at  which  JCHKfJ)  controlled  data  and 

energy-work  data  are  printed  (input  data,  card 

9). 


NETAG(Pf  Control  selecting  surface  on  whiJi  It.h  surface 

strain  location  is  situated  (input  data,  card  13). 

N I 2 ( 1 j Values  of  N at  mesh  points  bracke  <.ng  the  Ith 

surface  strain  locution,  NI1(I)  < PN ( I ) < NI2(I) 

: Mi'll  ♦ 1. 

13- 


-^TIU ' ■* l "■'-''T t", ;- 


-,r  gqg^f^y v. ;,"  re?i 
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C.3  Real  Variables 

All 

A12 

A22 

Aag 

Actg 

Covariant  components  of  middle  surface  metric. 

AA 

A 

Coefficient  of  quadratic  equation  for  AX. 

ALFN 

Alphanumeric  print  indicating  surface  on  which 
strain  are  determined. 

ANGEL 

0 

ANGLB(l)  or  ANGLE(I)  in  radians. 

AU1 

A!U2 

AR22 

ARag 

a«* 

Contravariant  components  of  middle  surface  metric. 

AVGRAD 

Cylinder  radius  or  average  cone  radius,  zero  for 
flat  plate. 

B 

-2B 

Coefficient  of  quadratic  equation  for  AX. 

Bill 
B12 1 
B2  2 1 

Bag 

bag 

Covariant  components  of  middle  surface  2nd 
fundamental  tensor. 

BM11 

BM12 

BM21 

BM22 

jeMag 

bg 

Mixed  components  of  2nd  fundamental  tensor. 

BT 

b? 

Trace  of  2nd  fundamental  tensor. 

C 

c 

Sound  speed,  c = yJ-^z^Z) 

Cl 

Program  constant  used  in  equations  of  motion. 
Cl  = C2/(4  + C2) . 

C10LD 

Old  value  of  Cl  in  subroutine  DESTEP. 

C2 

2DAt/r0 

Program  constant  used  in  damping  work  calculations 

CA 

Ar^An2 

Program  constant  used  in  kinetic  energy  and 
work  calculations. 

CB 

An^An2A?/E 

Program  constant  used  in  elastic  energy 
calculations . 

CINEP 

y* 

Kinetic  energy  removed  by  previous  KEA  operation. 
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CINER 

T_ 

Kinetic  energy  at  time  t - 1/2  At. 

CINES 

V T++ 

Kinetic  energy  at  time  t + 1/2  At  or  at  time 
c + 3/2  At  in  subroutines  DAMP  and  DESTEP. 

CINES1 

T. 

Previous  value  of  CINER  in  subroutines  DAMP  and 
DESTEP. 

CINET 

T 

Kinetic  energy  at  current  time  t. 

CM.CN 

Weighing  factor  accounting  for  reduced  areas  at 
boundarys  in  summing  for  the  kinetic  energy  and 
work. 

CS111 

CS112 

CS122 

CS211 

CS212 

CS222 

► CSagy  r3ya 

Christoffel  symbols  for  the  middle  surface. 

CSMll 

CSM2J 

CSMa 

Normal  components  of  FNTai. 

D 

b2-ac 

Discriminant  of  quadratic  equation  for  LX. 

01 ) 

D2  > Di  U1 
D3> 

Components  of  the  displacement  of  the  middle 
surface  particle  with  material  coordinate 
ETAD1 , ETAD2. 

DA 

a 

Determinant  of  the  surface  metric  a Q. 

ag 

DAlli 
DAI  2 1 
DA22) 

1/2  4aa8 

One  half  the  incremental  change  in  aa3  during 
the  time  interval  from  t - At  to  t. 

DAMPFi 

D 

Viscous  damping  coefficient  (input  data,  card  5). 

DB11 1 
DB12  > 
DB22) 

Ab  „ 
ag 

Incremental  change  in  ba3  during  the  time 
interval  from  t-At  to  t. 

DELB 

AtB 

Critical  bending  time  increment  for  stability. 

DELGAM  At2/T 

0 

Program  constant  used  to  calculate  TEMP(M,N) . 

DELIN 

At 

Temporary  storage  of  input  DELTA?. 

DELM 

4tM 

Critical  membrane  time  increment  for  stability. 
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DELMIN 


2 


Minimum  of  DELB  and  DEIM  rounded  off. 


DELR 


DELS 


DELSQ 

DELTA 

DELTATS 


DEPS11 

DEPS12 

DEPS21 

DEPS22 

DETA1) 

DETA2J 

DETAN 

DEFACTS 


DG 

DN 

DNL1 ) 
DNL2  f 

DNRll 

DNR2/ 

PSG11L 

DSG12L 

DSG2IL 

DSG22L 

DSIG11 | 
DSIG12 
DSIG21 1 
DSIG22  ' 

DSQOLD 


2 

/At*\  Factor  used  in  computing  Au1  and  T in  subroutine 

l At  J DESTEP,  see  (2.53  and  2.54). 

(~- ) Factor  used  in  computing  Aui  and  T in  subroutine 

At  / 2rQ+UAt  deSTEP,  see  (2.53  and  2.54). 

2 


At 

<$ 

At 


DELSQ  * DELTAT**2. 

Time  constant  used  in  subroutine  STRAIN. 

Time  increment  (calculated  by  program  or  input 
on  card  3) . 


DEPSag  Aea  Mixed  components  of  the  strain  increment  Ae^ 

6 


Ana 

ii  n - 72) 


8 

An 


An 


a 


1 2 

Increments  in  the  n and  n material  coordinates, 
respectively. 

Factor  used  in  calculating  DELB,  see  (2.3). 

Factor  for  terminating  damping  operations  (input 
data,  card  5). 

Determinant  of  g Q. 

ctp 

Normal  component  of  increment  in  n1. 

Tangential  components  of  increment  in  n1. 


An 


Contravariant  form  of  An  , above;  Ana  = aa^An 

a ' 0 


Ea  .. 
Aag/L 


Subincreraents  into  which  AcC  below  is  divided. 


DSIGag  A a 


Ea  Mixed  components  of  elastic  stress  increment. 


0 


At* 


Old  values  of  DELSQ  in  subroutine  DESTEP. 
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DUSN 

DUSN1  Au 
0USN2 

DW  niAui 

DX4  1/ (An1)4 i 

DY4  l/(An2)4' 


iij 

EN 

ENR 

ENS 


E 

AW(t~  At) 

AW(t-At) 

AnAAri^ 

AWft) 

An* An 2 


EPSDOT  e 


EPSR1  el  i 

EPSR2  C2\ 

GRAMMAR  2 Y ) 


ETAll 
ETA2 J 


a 


n 


ETADla \ a 
ETAD2§ f n 


Fll 
F12 
F22 

FLAYER 

FLOATL 


FNT11 

FNT12 

FNT13 

FNT21 

FNT22 

FNT23 


N 


io 


FNU§  v 


G 


E 

2(l+v) 


Correct  ions  applied  to  the  normal  components  of 

Au^  along  clamped  edges  and  at  clamped  corners, 
respectively. 

Normal  component  of  Au1. 

Factors  used  in  calculating  DELB, see  (2.3) 

Young's  modulus  (input  data,  card  6). 

Work  increment  in  the  time  interval  t-At  to  t. 

Value  of  ENS  at  the  time  t - A. 

Proportional  to  work  increment  in  the  time 
interval  t-1/2  At  to  t+1/2  At. 

Deviator  strain  rate  used  in  strain  rate 
dependence  law. 

Intermediate  components  of  strain  used  in 
calculating  surface  strains. 

1 2 

Material  coordinates  n and  n of  middle 
surface  particles. 

Material  coordinates  of  the  point  at  whi cn 

the  displacements  U1  are  calculated  (input 
data,  card  12). 

Proportional  to  bending  resultant  FMoB  (M,N) . 

Factor  used  in  calculating  DELB. 

Fraction  of  stress  subincreraent. 

Proportional  to  stress  resultant  FNai  (M,N) . 

Poisson's  ratio  (input  data,  card  o). 

Shear  Modulus. 
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Gil) 
GX2>  g 
G22  * 

:ag  * Gag 

Used  in  subroutine  STRESS  for  the  metric  g^g 

of  the  lamella  ; distance  from  the  middle  surface 
and  in  subroutint  STRAIN  for  the  initial  metric 
Gflg  on  the  bounding  surface. 

G ANWAR 

See  EPSR1  above. 

GAM2 

To  ■ ph 

Mass  per  initial  middle  surface  area. 

GR 

V /GnG22 

Time  constant  computed  from  G^g  . 

GR11  ) 
GR12  [ 
GR22  ) 

Inverse  of  metric  g .. 

GTWO 

E 

1+v 

Twice  the  shear  modulus  G. 

H 

1/2  h 

Half  the  shell  thickness,  H * THICKN. 

LENGTHS 

Length  of  plate,  cylinder,  or  cone  (input  data, 
card  14) . 

PHIT 

* 

Yield  function. 

PJ 

The  mathematical  constant  it. 

PLA5T 

WP 

Plastic  work. 

PM1 

PM2 

PNi 

PN2 

PMl  = Mil (I) 

PM2  » MI 2 (I)  Conversion  from  integer  to 

PNI  » Nil (I)  floating  point  form. 

PN2  * NI2(I) 

PRAT 

E 

l-v2 

Material  constant. 

Qlll 
Q12 
Q22  ’ 

a5  AQ 

Proportional  to  membrane  components  of  stress 
resultant. 

QMl 
QN  / 

m,n 

Mesh  numbers  corresponding  to  material  coordinates 
ETAD1  and  ETAD2. 

QM1.QM2] 
QN1 ,QN2  J 

\ 

Interpolation  coefficient  used  to  compute  the 
displacement  components  Di. 

RA 

1/a 

***  =DA‘ 

RADIS 

Small  radius  of  conical  shell  (input  data,  card  14) 

PADIUSS 

Initial  radius  of  cylindrical  shell  (input  data, 
card  Id). 

144 


SNN 

»V 

Scalar  product  of  normals  at  times  t and  t - At. 

SRA 

a ^ 

SRA  * SQRT  (DA). 

SRDEL 

1/  /l-62 

Time  constant  used  in  subroutine  STRAIN. 

SRG 

& 

SRG  - SQRT  (DG). 

SS11 

slnss“»  °b 

SS22 

Weighted  sum  of  the  mixed  components  of  sublayer 
stress  for  given  layer,  giving  the  layer  stress. 

STREN 

V 

Elastic  strain  energy. 

SUM 

Factor  used  in  rounding  off  DELMIN. 

SUKAlll 
SUMA12 
SUMA22 ' 

! 

i k 

Sum  of  components  of  layer  stress  SSlMN(k),  etc. 
over  all  layers. 

SUMB11 1 
SUMB12] 
SUMB22 1 

o aS 
2>  ? 

- k 

1 

Sum  of  first  moment  of  components  of  layer  stress 
SSlMN(k),  etc.  over  all  layers. 

SUMC11 j 
SUMC12 
S1JMC22  ' 

1 ZnaPr2 

i k ° 5 
1 

Sum  of  second  moments  of  components  of  layer 
stress  SSlMN(k),  etc.  overall  layers. 

T2 

TA 

1 ♦ 15  \> 

8(An^Anfc'* 

Ac 

Factor  used  in  calculating  DELB,  see  (2.3). 
cayer  thickness,  TA  = 

TAMBDA 

AA 

Factor  measuring  amount  of  plastic  flow. 

TB 

a^A  c 

Program  constant  used  in  calculating  resultants. 

TDAMP 

WD 

Damping  work. 

theta: 

Angle  subtended  by  cylindrical  and  conical  panels 
(input  data,  card  14) . 

THICKNS  h 

Thickness  of  shell  (input  data,  card  6) . 

TIME 

t 

Current  time,  TIME  = NCYCLE*DELTAT. 

TNRG 

W 

Total  external  work  (due  to  pressure) . 

TRL 

l/(2An1An2) 

TRD  = 2*RD12. 
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uu 

U12 

U13 

U21 

U22 

U23 


Uai 


u 


First  finite  difference  derivatives  of  the 
displacement  increment  Ui  (M,N)  with  respect  to 
material  coordinates  ETAa. 


Ulll\ 

U112 

U113 

U121 

IJ122 

U123 

U221 

U222 

U223 


Uagi 


Second  finite  difference  derivatives  of  the 
displacement  increment  Ui  (M,N)  with  respect 
to  material  coordinates  ETAa. 


U1R  | 

U2R  > 
U3R* 


Components  of  displacement  increment  during  the 
Au1  time  interval  [t  - At,  t]. 


U1S  i 
U2S  > 
U3S ) 


Compv  onts  of  displacement  increment  during  the 
time  interval  [t,  t + At]. 


V§ 


VFli 

VF2 

VF3> 


v Initial  velocity  at  mesh  points  not  receiving 

uniform  initial  velocity  VR  (input  data,  card  16). 

Force  due  to  the  pressure  P (M,N)  in  the  equations 
-P*nx  of  motion. 


VM1 1 
VM2  \ 
VM3) 


32(Ma6n1) 


9na3n2 


Foi..  c due  V'.  bending  resultants  FMa3(M,N)  in  the 
equations  of  motion. 


VNlj  3^ia  Force  due  to  s resultants  FNai(M,N)  in  the 

VN2[  equations  of  >n. 

VN3  ’ 3na 


VR§  v 


Uniform  initial  velocity  (input  data,  card  15). 


WIDTH? 


Yll  \ 

Y12  / 

v*i  b 

Y22  I 
Y23  | 


yi 


Half  width  of  plate  (input  data,  card  12). 


First  finite  difference  derivatives  of  the  position 
vector  Yi  (M,N)  with  respect  to  material  coordinate 
ETAa,  forming  local  basis  for  middle  surface. 


C.4  Real  Arrays 


Aiimn 

A121(I) > Aagl(I)  Initial  ^3  at  mesh  point  (MI1(I) ,NI1(I)) . 

A221(I) ) 

A112(I)J 

A122(I) ; Aag2(I)  Initial  803  at  mesh  point  (MI1(K),  NI2(I)). 

A222(I) ) 


A113(I) 1 

A123(I)  > Aag3(I)  Initial  a at  mesh  point  (MI2(I) ,NI1(I)) . 

A223(I) ) 

A114(I) 1 

A124(I)>  AaB4(I)  Initial  at  mesh  point  (MI2(I) ,N(2(I)) . 

A224(I) ) 


ANGLB(I)|  i 6 

ANGLE  (I)|  f 

ASA(I)  ,ASB(I)  2a2 


Angle  specifying  direction  of  surface  strains 
E at  location  I (input  data,  card  13). 

V 

Constant  for  computing  surface  strain  in  6 direction. 


BHl(I)  | 

B121 (I)  } Bagl(I) 

B221 (I)  ) 

B112(I)1 

B122(I)>  Bag2(I) 
B222(I)J 

B113(I)) 

B123(I)>  BaB3(I) 
B223(I) ) 

B114(I)) 

B124(I)>  Bag4(I) 
B224(I)) 

BSA(I),  BSB(I)  2g2 


Initial  bag  at  mesh  point  (MI1(I),  Nil  (I)). 

Initial  bag  at  mesh  point  (Mil (I),  NI2(I)). 

Initial  bag  at  mesh  point  (MI2(I) ,NI1 (I)) . 

Initial  bag  at  mesh,  point  (MI2(I)  ,NI2(I)) . 

Constant  for  computing  surface  strain  in  9 direction. 


CSA(I),  CSB(I)  2ag  Constant  for  computing  surface  strain  in  6 direction. 


DAT(J) 


DEPSl(K)  Aen  j 
DEPS2(K)  Lt22\ 
DGAMMA(K)  Ael2) 


Array  storing  energy,  displacement  and  strain 
plotting  data  each  time  step. 

1 2 

Elongational  components  in  the  n and  n directions 
and  shear  component  of  strain  increment  in  the  Kth 
layer. 
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DM1 (I),  DM2 ( I ) i 
DN1(I),  DN2(I) ( 

DSR(J) 5 

dj 

EPSANB(I)) 

EPSANG(l)/ 

E0 

EPSLl(M.N) 

ell) 

EPSL2(M,N) 

£22 

GAM4AL(M,N) 

c12 ) 

EPSSl(I) 

El  \ 

EPSS2(I) 

E2  f 

EPSUl(M.N) 

eni 

EPSU2(M,N) 

£2  2[ 

GAFMAU(M.N) 

£12> 

ETAG1(I)§\ 

ETAG2(I) if 

x \ 

FM11 (M,N)» 

FN11(M,N)1 

FN12(M,N)i 

FN13(M,N)  FNol(M  N) 
FN21(M,N)(  1 J 

FN22(M,N)1 

FN23(M,N)I 

GA>WAL(M,N) 

GAfWAU(M.N) 

GIIKI)  1/Gli 

GI  12(1)  2/  /CUG22 

GI 22(1)  1/G22 

P(M,N)  P, 

p* 

PM(I) * m, 

PN(I)/ 

n 

PSR(J)  § 

P; 

Interpolation  coefficient  used  to  compute  components 
of  surface  strain  at  location  I. 

Constant  in  strain  rate  dependence  law  (input  data, 
card  7) . 

Elongational  surface  strains  in  the  6 directions  at 
location  1. 

1 2 

Elongational  components  in  the  n and  n directions 
and  shear  component  of  strain  on  the  negative 
bounding  surface  at  mesh  point  (M,N) . 

Elongational  surface  strains  in  the  n and  n‘ 
directions  at  location  I. 

1 2 

Elongational  components  in  the  n and  n directions 
and  shear  component  of  strain  on  the  positive 
bounding  surface  at  mesh  point  (M,N). 

Material  coordinates  of  the  Ith  surface  strain 
location  (input  data,  card  13). 

Components  of  the  bending  resultant  tensor  at 
the  mesh  point  (M,N) . 


Components  of  the  stress  resultant  tensor  at  the 
mesh  point  (M,N). 


See  EPSL1 (M,N)  above. 
See  EPSUl(M.N)  above. 


Time  constants  computed  from  the  initial  surface 
metric  G a at  strain  location  I. 

ap 


The  pressure  or  augmented  pressure  at  mesh  point 
(M.N). 

Mesh  numbers  corresponding  to  material  coordinates 
ETAGl(I)  and  ETAG2(I) . 

Constant  in  strain  rate  dependent  law  (input  data, 
card  7) . 


ISO 


SE  (,  J) 


Slopes  of  Jth  segments  of  polygonal  approximation 
to  strain  hardening  stress-strain  curve. 


SEPS(J) i 


SIC1(M,N,KJ)  a\\l 
SIG2(M,N ,KJ)  0“} 
TAU(M,N,KJ)  o' 


Strains  at  corners  of  polygonal  approximation  to 
strain  hardening  stress-strain  curve  (input  data, 
card  7) . 

Normal  and  tangential  components  of  stress  in  the 
1 2 

n and  n directions  at  mesh  point  (M,N),  layer  K, 
sublayer  J. 


S1G2SQ(J)  o‘ 


SNl(M.N) 

SN2(M,N) 

SN3(M,N) 

SSIMN(K) 

SS2MN(K) 

STMN(K) 


n 


Square  of  yield  stress  at  Jth  sublayer. 

Cartesian  components  of  unit  normal  to  middle 
surface  at  mesh  point  (M,N) . 


Normal  and  tangential  components  of  stress  in 
layer  K,  obtained  from  the  mixed  component  form 
SSotB  by  raising  index. 


SSIG(J) S Oj 
STMN(K) 


Stresses  at  corners  of  polygonal  approximation 
to  strain  hardening  stress-strain  curve  (input 
data,  i(card  7) . 

See  SSIMN(K)  above. 


TAU(M.N.KJ) 


See  S1G1 (M,N,KJ)  above. 


TEMP(M.N)  At  / (a . 


U1(M,N) 

U2(M,N) 

U3(M,N) 


Au 


r ) Value  of  time  constant  at  mesh  point  (M,N) . 

Cartesian  components  of  displacement  increment 
undergone  by  the  mesh  point  (M,N)  in  the  time 
interval  At. 


WT(J) 


Weighing  factors  used  in  summing  the  sublayer 
stress  to  obtain  layer  stress,  see  SSafi  . 


YICM.N)) 

Y2(M,N)  / y1 

Y3(M,N) ) 

ZETA(K)  C 


ZETASQ(K)  C2 


Cartesian  coordinate  of  the  mesh  point  (M,N)  on 
the  middle  surface. 


Distance  along  the  normal  from  middle  surface  to 
midpoint  of  Kth  layer. 

Square  of  ZETA(K) . 
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APPENDIX  D 

REPS I L PLOTTING  PROGRAM 


This  is  an  independent  program,  separate  from  the  REPSIL  program. 

It  was  written  to  satisfy  the  requirement  for  a visual  display  of  the 
output  from  REPSIL  and  PETROS  structural  response  programs.  This  plot- 
ting program  is  useful  in  quickly  interpreting  results  that  in  tabular 
form  would  be  extremely  difficult  if  not  impossible,  to  understand. 

The  program  makes  use  of  the  Cal  Comp  Standard  Plotting  Package 
SCOOP  which  is  standard  software  for  a large  number  of  computing  systems. 

If  SCOOP  is  not  available  it  can  easily  be  adapted  to  any  particular 
plotting  system. 

D,1  Description  of  Main  Program  and  Subroutines 

The  main  program  reads  the  plotting  data  tape  and  controls  the  flow 
of  information.  If  the  variable  1FLAG  equals  one,  data  is  read  and 
stored  in  the  plotting  data  arrays.  If  it  equals  two,  data  is  read  and 
the  program  calls  subroutine  PL0T3D.  When  IFLAG  equals  99999  the  program 
calls  subroutine  GRAPH. 

If  the  number  of  cycles  arc  greater  than  MAXAR-2  an  ERROR  PRINT 
will  occur  indicating  the  need  for  enlargement  of  the  following  data 
arrays:  TIM(MAXAR) , Ul(MAXAR),  U2(MAXAR),  U3(MAXAR),  CIN(MAXAR) , STC(MAXAR) 
TNR(MAXAR) , DAMPLT(MAXAR) , and  EPSSl(N),  EPSS2(N),  where  subscript  N 
is  equal  to  NSTRN*MAXAR.  If  memory  is  available  MAXAR  and  the  plotting 
data  arrays  can  easily  be  enlarged. 

Subroutine  PL0T3U  reads  one  control  card  and  plots  a cross-section, 
profile  and  isometric  view  of  the  middle  surface  of  the  shell.  The 
coordinate  data  points  Y1  (M,N) , Y2  (M,N)  and  Y3  (M,N)  are  mapped  into 
XP,  YP  for  each  M and  N to  form  the  isometric  view  of  the  surface.  Every 
line  lying  on  the  surface  is  plotted,  not  just  those  which  are  visible 
(cf.  Figure  5.8). 

The  surface  is  plotted  by  connecting  successive  (M,N)  mesh  points 
with  straight-line  segments  for  each  M over  all  N on  the  mesh  and,  in 
turn,  connecting  successive  (M,N)  mesh  points  for  each  N over  all  M. 

Input  parameters  on  the  control  card  allow  considerable  flexibility 
in  plotting  the  three  views.  The  deflection  can  be  magnified  in  order 
to  bring  out  the  details  of  the  deformation  pattern.  The  scale  to  which 
the  plots  are  drawn  can  be  adjusted  in  two  ways.  First,  the  scaling 
factor  SF  is  found  avtomatically,  ell  three  dimensions  are  scaled 
independently  in  order  to  fit  the  surface  into  a cube.  Then  the  maximum 
scale  of  the  three  dimensions  is  selected  as  the  desired  scaling.  If 
the  maximum  is  less  than  one,  SF  is  set  to  one.  Second,  the  user  specifies 
the  scaling  factor  SF  on  the  input  control  card. 
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It  is  recommended  that  the  first  way  be  used  with  a cube  size, 

SOPC,  of  3.5  inches  for  every  new  surface  to  automatically  find  SF. 

See  Figures  5.3  and  5.8  for  examples  of  the  plotted  output. 

Subroutine  GRAPH  produces  two  graphs.  First,  time  vs  displacements 
Ul,  U2,  U3  at  tho  coordinate  point  (ETAD1,  ETAD2) , see  Figure  5.5  and 
5.10.  The  second  graph  is  energy  balance  information  (time  vs  kinetic 
energy,  strain  energy,  total  energy  and  total  damping  work)  which  is 
useftil  for  detection  of  numerical  instabilities  and  as  an  indication 
of  when  the  solution  may  be  terminated,  see  Figures  5.4  and  5.9. 

Subroutine  STRGRA  produces  NSTRN  graphs  of  time  vs  clongational 
1 2 

strain  in  the  n and  n directions  at  the  coordinate  point  (ETAG1, 

ETAG2)  on  the  inner  or  outer  surface  of  the  shell.  The  results  can  be 
compared  with  experimental  measurements  recorded  by  strain  gauge  mounted 
on  the  surface,  see  Figures  5.6  and  5.11.  See  REPSIL  input,  Section 
3.2  for  the  description  of  NSTRN. 

Subroutine  SEDSHL  will  plot  a dashline  instead  of  a solid  line. 

Subroutine  MAXMIN  finds  the  maximum  and  minimum  point  for  two 
or  more  arrays  of  data  on  the  Y-axis  for  a given  plot. 

D.2  Input  Plotting  Control  Card 

Variables  Format 

DEFLM,  SOFC,  SF,  NPT  3E10.4,  IS 

DEFLM  Deflection  magnification  factor. 

SOFC  Cube  size,  automatically  finds  scale  factor  SF. 

SF  «0,  Scaling  factor  SF  is  found  automatically. 

>0,  Desired  scale  factor. 

Example:  Scale  1/2,  punch  a real  number  2 in  columns  21 
to  30. 

Scale  1/10,  punch  a real  number  10  in  columns 
21  to  30. 

2 

NPT  Mesh  point  location  in  the  n direction  at  which  a cross- 

section  is  desired. 

Following  are  some  examples  of  the  plotting  control  card. 

Example  1 

DEFLM  *■  1.0,  SOFC  ■ 3.5,  SF  * 0.0,  NPT  - 13 
Example  2 

DEFLM  * 3.0,  SOFC  = 0.0,  SF  = 2.0,  NPT  = 33 
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Example  3 

DFFLM  = 100.0,  SOFC  = 0.0,  SF  = 10.0,  NPT  = 10 
D.3  Description  of  Variables 
Name  Definition 


All,  A12,  A21 
A22,  A23 

CIN(1500) 


DAMP LT( 1500) 


DAT (20) 
EPSS1(9000) 


EPSS2(9000) 


Constants  used  in  the  mapping  functions  XM,  YM  to 
rotate  and  transform  [Yl,  Y2,  Y3]  into  [XP,  YP] 

The  array  of  numbers,  corresponding  to  kinetic 
energy  used  in  the  energy  balance  plot. 

The  array  of  numbers,  corresponding  to  total 
damping  work  used  in  the  energy  balance  plot. 

Array  used  in  the  plotting  data  tape  input  list. 

The  array  of  numbers,  corresponding  to  the 
strains  in  n*  direction. 

The  array  of  numbers,  corresponding  to  the  strains 
2 

in  the  n direction. 


ETAD1 , ETAD2  See  Section  3.2  and  Appendix  C. 

ETAG1 (6) , ETAG2 (6)  See  Section  3.2  and  Appendix  C. 


HEAD1 (4) 
HEAD2  (3) 

HEAD3  ( 2) 

11 

12 

IBCE3 

IBUF(IOOO) 

IPEN 


First  line  of  the  title  that  appears  on  the  first 
isometric  plot. 

Second  line  of  the  title  that  appears  on  the  first 
isometric  plot. 

Title  that  appears  on  every  isometric  plot. 

Number  of  mesh  points  in  the  n*  direction. 

Number  of  mesh  points  in  the  n‘  direction. 

Boundary  condition  valu^. 

Array  used  by  the  Cal  Comp  basic  software  package 
Control  for  pen  during  movement. 


1 


w 

l;> 

’*»• 

I I FLAG 

Ml 

MAXAR 

MAXA 

NCYCL 

NCYCLE 

NETAG(6) 

NPLOT 

NSTRN 

PA(4) 

PM(6),  PN(6) 
QM,  QN 
SF 

SOFC 

STC(1500) 

TE1*  TE2,  TE3 
TI 

TIM  (1500) 
TIME 

TNR  (1500) 


A flag.  When  it  equals  1,  the  program  will  read 
data  for  the  time  wise  plots.  When  it  equals  2, 
the  program  will  read  data  for  the  cross-section, 
profile  and  isometric  views.  When  it  equals 
99999,  the  program  will  plot  the  time  wise  plots. 

Same  as  II. 

Size  of  plotting  data  arrays. 


MAXA  * MAXAR- 2 


The  number  of  time  steps  for  each  curve  on  the 
time  wise  plots. 

Time  cycle  counter. 

Zero  or  one,  corresponding  to  inner  or  outer 
surface  used  in  the  title  of  the  strain  plots. 

Magnetic  tape  input  unit  number. 

Number  of  strain  plots. 

Array  that  stores  the  dash  line  pattern. 

The  arrays  which  stores  the  mesh  location  (M,N) 
that  appear  in  the  title  on  the  strain  plots. 

Mesh  location  (M,N)  that  appear  in  the  title  on 
the  vector  displacement  plot. 

Scale  factor. 

Size  of  cube. 

The  array  of  numbers  corresponding  to  strain 
energy  used  in  the  energy  balance  plot. 

XYZ  Values  used  in  the  mapping  functions. 

TI  = TIME  x 1.0  x 106 

The  array  of  numbers  corresponding  to  time  used 
in  the  time  wise  plots. 

Current  values  of  time. 

The  array  of  numbers  corresponding  to  total  energy 
used  in  the  energy  plot. 
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r-  JfTCWrr.WiTCTTi 


H*  _>S(WrV  'i 


u,  (1500)) 
U,  (1500)} 
(1500)) 


X(25 
Y (25 
2(25 


, 35)) 
, 35)} 
. 35)) 


Xl(90) 

X2(90) 

XBAR,  YBAR 

XL 

XM  (Al,  A2) 

XMAX 

XMIN 

XP.YP 

XPAGE 


fhe  arrays  of  numbers  corresponding  to  the  vector 
displacement  Ul,  U2,  U3. 


The  arrays  of  numbers  corresponding  to  the  initial 
shape,  Y1(M,N),  Y2(M,N),  Y3(M,N) . 


The  array  of  XP  values  for  plotting  the  cross- 
section  and  profile  views. 

The  array  of  YP  values  for  plotting  the  ci . >s- 
section  and  profile  views. 

Board  coordinate  point  on  the  plotting  p->per  in 
inches,  measured  from  the  lower  left  corner  of  the 
page. 

Length  of  X-axis  in  inches. 

X-axis  mapping  function  used  in  isometric  view. 
Maximum  X-coordinate. 

Minimum  X-coordinate. 

X,Y  coordinates  on  the  plotting  surface. 

Plotting  page  length. 


Y1 (25,35) ,Y2(25,35) , See  Appendix  C. 
Y3(25,35) 


YM(A1 ,A2,A3) 
YMAX,  YMIN 
YP 

ZMAX,  ZMIN 


Y-axis  mapping  function  used  i.n  isometric  view, 
Maximum  and  Minimum  Y-eoordinate. 

See  XP. 

Maximum  and  Minimum  Z-cooidinate. 

D.4  FORTRAN  Listing  of  Plotting  Program 

A complete  FORTRAN  listing  is  given  in  the  following  order. 

1.  MAIN  Program 
?.  PLOT  3D 

3.  GRAPH 

4.  STRGRA 

5.  MAXMIN 

6 . SCDSHL 
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C REPSIL  PLOTTING  PROGRAM  (CALCOMP  SOFTWARE  PACKAGE  SCOOP)  MAIN 

COMMON  £ TAG1 (6) »ETAG2I 6)»PM(6)*PN(6)*NE TAG  16) *NS TRN»MAXAR  MAIN 

COMMON  Yl(25»3S>*Y2(2S*35)»y3(25»35),X<25,35)*YI25,35l»2(25*3S>  MAIN 
COMMON  OATI 20) tNCYCLE*  TIME  * 1BCE  3*E  TAOl «ETAD2»QM*QN,NC YCL  MAIN 

| COMMON  TIMI  1500I-.UK  1500) *U2I 1 500) ,U3( 1 500)  ,CIN<»500)  ,STC(1500),  MAIN 

1 1TNRI I500),0AMPLTI 1500), EPSS1I 9000) .EPSS2I9000)  MAIN 

1 C MAIN 

} NCYCL-0  MAIN 

} NPLOT-3  MAIN 

£ REWIND  NPLOT  MAIN 

NAXAR-1500  MAIN 

NAXA«MAXAR-2  MAIN 

C MAIN 

> REAOINPLOT)  IBCE3*ETAD1 ,ETA02,QHt0N*NSTRN  MAIN 

READ(NPLOT)  1ETAG1I I ).£TAG2(I ),PM(I I ,PN(II .NETAGII) . l-l .NSTRN)  MAIN 
REAOINPLOT)  NCYCLE* TIME. Ml *N1 * I IY1 !N,N) , Y2 (N,N) . Y3 (M,N) *N«1 ,MI ) » MAIN 
IN* 1 1 Ni ) MAIN 

!!*2*NSTRN*8  MAIN 

C SAVE  INITIAL  SHAPE  NEEDED  FOR  OEFLECTION  MAGNIFICATION  IN  PL0T3D  MAIN 

00  5 M-l.Ml  MAIN 

00  5 N-i.Nl  MAIN 

f X|MtN)*VllM,N)  MAIN 

j VIMtN)-Y2IMtN)  MAIN 

I 2IMtN)*Y3|M(N)  MAIN 

5 CONTINUE  MAIN 

CALL  PL0T3D|M1*N1)  MAIN 

C MAIN 

10  REAOINPLOT)  1FLAG  MAIM 

1 FI  I FLAG  .EQ.  99999 (GOTO  30  MAIN 

GOT 01 20*  25) * I FLAG  MAIN 

i C MAIN 

[ 20  READ  INPLOT)  NCYCLE * I DAT! I ) ,1 *1,1 1 ) MAIN 

NCYCL“NCYCL ♦ 1 MAIN 

j TIMINCYCD-OATI  1)  MAIN 

UlINCYCL )*0ATI2)  MAIN 

\ U2INCVCL )*0AT|3I  MAIN 

U3INCYCL )*OAT|A)  MAIN 

| CIN  INCVCLI-OATIS)  MAIN 

i STC  I NCYCL )*CAT 16)  MAIN 

( TNR  (NCYCL )*OAT( 7)  MAIN 

i OAMPLTINCYCL )*0ATI8)  MAIN 

t 00  22  1*9*11.2  MAIN 

! J*NCYCL  *MAX AR*( I~9)/2  MAIN 

1 EPSSK  J l*OAT  1 1 ) MAIN 

! EPSS2I J )*OAT I !♦  I ) MAIN 

i 22  CONTINUE  MAIN 

£ I FI  NCYCL  .Gif  • MAXA)GOTO  28  MAIN 

f GOTO  10  MAIN 

['  C MAIN 

[ 25  REAOINPLOT)  NCYCLE*  TIME.M1.N1.I (Yt(M*N) »V2IM*M) *Y3(M*N) »M*1*M1).  MAIN 

1N*1*N1)  MAIN 

CALL  PLOT 301  MI* N 1 ) MAIN 

GOTO  10  MAIN 

C MAIN 

2B  WRITE! 6* 100 ) NCYCL  MAIN 

30  CALL  GRAPH  MAIN 

CALL  EXIT  MAIN 

C MAIN 

100  FORMAT! 15H1ERR0R  NCYCL  * ,I5»29H  ENLARGE  PLOTTING  DATA  ARRAYS)  MAIN 

ENO  MAIN 
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■ 

I 


{ 


? 


\ 

I 

I 


c 


c 


c 


c 


SUBROUTINE  PLOT  3D  (11*12) 

DIMENSION  I BUF ( lOOO ) ,X1 ( 90) ,X2<  90) *HEAD1 (4 ) * HEAD2 (31 *HE A03 (2) 
COMMON! USE  MAIN) 

COMMON  /PLOTO/  YNP.XDIST.PA (4) 

DATA  I/O/, A 11/. 70710?/, A12/. 707107/, A2>/-. 408248/, A22/. 408248/, 
IA23/. 816497/ 

DATA  (HEAOK IK), IK-1, 4I/10HCR0SS  SECT.IOHION  0EFLEC,10HTI0N  AT  N 
12M«  / 

OATA  (HEA02( IK), IK-1, 3) / 10HDEFLEC T I ON, 10H  MAGNIFIED, 1H  / 

OATA  (HEA03I IK), IK-1, 2I/10H  M1CR0SEC0.3HNDS/ 

OATA  (PA(J),J-l,4)/.l,.l,.l,.t/ 

XM(A1,A2)-SF*(A11*A 1 ♦A 12*A2 ) 

YM(  Al,  A2,A3)»SF*(A21*A1*A22*A2*A2  3*A3) 

IF(  I.EO.OIGOTO  10 
1-141 

X BARN— 4.25 

Y BAR-10.0 

YNP-YNP ♦ 10.0 

IF(  I.LE.3)G0T0  30 

CALL  PLOT  (X0IST,-YNP,-3I 

GOTO  20 

10  XPAGE-200.0 

READ  (5,111  0EFLM,S0FC,SF,NI2 
X0IST-6. 75 

11  FORMAT) 3E10.4, I5i 

SCALE  FACTOR  FOR  30  PLOT  

XMAX-X( 2,1) 

XMIN-X) 2,  1 > 

YMAX*Y( 2, 1) 

YMIN-VI 2,1) 

ZMAX-Z ( 2, 1) 

ZMIN-ZI 2, 1) 

00  12  M-2,11 

00  12  N- 1, I 2 
XMAX-AMAX 1( X (M,N),XMAX) 

XM  IN- AM  INK  X (M,N  ) ,XM  IN  ) 

YMAX-AMAXK  Y (M,N  ),YMAX) 

VMIN«AMIN1(Y(M,N),YMIN) 

2 MAX -AM AX  1 1 2 (M,N  ) ,ZMAX ) 

2M1N-AMIN1(2(M,N),2MIN) 

12  CONTINUE 

1 FI SF  .NE.  0 .0 ) GOTO  13 
XS- ( XMAX-XM IN )/SOFC 
YS-IYMAX-YMINI/SOFC 
ZS- (2MAX-2M IN l/SOFC 
SF-AMAXKXS,  YS,2S ) 

SF-AINT I SF) 

IF! SF  .LT.  1.0)  SF-1.0 

13  CALL  PLOTS  ( IBUF, 1000.XPAGE ) 

CALL  SYMBOL  I 1.0, 1.0, . l.HEAOl ,0.0, 32) 

CALL  NUMBER  I999.,999.,.1,NI2,0.0,2H15> 

CALL  SYMBOL  ( 1. 0,0.8, .1,HEAD2»0. 0,21) 

CALL  NUMBER  (999**999.,. 1,0EFLM,0. 0,1 1 
CALL  SYMBOL  (1.0,0.6,.1,8HSCALE  I/, 0.0, 8) 

CALL  NUMBER  (999. ,999.,. 1,SF,0.0,-1) 

SF-l.O/SF 


20  Y BAR-4. 3 


444* 

1 

PLOT 

2 

PLOT 

3 

PLOT 

4 

PLOT 

5 

PLOT 

6 

PLOT 

7 

PLOT 

a 

PLOT 

9 

PLOT 

10 

PLOT 

11 

PLOT 

12 

PLOT 

13 

PLOT 

14 

PLOT 

15 

PLOT 

16 

PLOT 

IT 

PLOT 

18 

PLOT 

19 

PLOT 

20 

PLOT 

21 

PLOT 

22 

PLOT 

23 

PLOT 

24 

PLOT 

25 

PLOT 

26 

PLOT 

27 

-PLOT 

28 

PLOT 

29 

PLOT 

30 

PLOT 

31 

PLOT 

32 

PLOT 

33 

PLOT 

34 

PLOT 

35 

PLOT 

36 

PLOT 

37 

PLOT 

38 

PLOT 

39 

PLOT 

40 

PLOT 

41 

PLOY 

42 

PLOT 

43 

PLOT 

44 

PLOT 

45 

PLOT 

46 

PLOT 

47 

PLOT 

48 

PLOT 

49 

PLOT 

50 

PLOT 

51 

PLOT 

52 

PLOT 

53 

PLOT 

54 

PLOT 

55 

PLOT 

56 

PLOT 

57 

PLOT 

58 

►PLOT 

59 

PLOT 

60 

i 

i 
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c 


c 


X BARN- 1.3 
YNP-VBAR 
1*1 

30  XBAR*X*6RN 

MIDSECTION  DEFLECTION  * 

CALL  PLOT  (XBAR,Y8AR,-3) 

CALL  PLOT  10.0,-1.0,31 
CALL  PLOT  (0.0* 1.0* 2) 

CAL L PLOT  10.0,0.0,  3) 

CALL  PLOT  ( 1.0, 0.0* 2) 

K«0 

00  90  N*2, 11 
MK*1 

X1(K)«SF*X(H,NI2I 

X2iK)«$F»ZIN,NI2> 

90  CONTINUE 
X1<K*1)*0.0 
XUK*21M.O 
X2(K,1»«0.0 
X2IK42|«1.0 

CALL  SC0SM1  (XI, X 2, K, l, PA, 61 
CALL  LINE  (X1.X2.K, 1,-1, 2> 

K»0 

00  95  N«2,ll 
K«K*1 

Xl(K)*SF*<X(M,NI2)»DEFLM6<VUM,NI2}-X{H,NI2m 
X3(K)-SF»mM,NI2)*OEFLM«(V3(M,NI2)-Z(M,NI2)  II 
95  CONTINUE 

CALL  LINE  <X1,X2,K, 1,1, A) 


XB-2.25 
YB— 2.0 

CALL  SYMBOL  IXB, YB, . 1.6HCYCLE  ,0.0,61 

CALL  NUMBER  1 999. , 999. , . 1,NCYCLE,0. 0,2KI 5 » 

VB-VB-0.2 

T 1«T IME* l.OOE  06 

CALL  NUMBER  (XB, YB, . 1,TI ,0. 0, 31 

CALL  SYMBOL  1999., 999. , . 1 ,HEA03 ,0. 0, 1 3) 

CENTER  LINE  DEFLECTION  PROFILE 

CALL  PLOT  10.0,3.0,-31 
XB»SF«Y(2,I2) 

Y 6*0.0 

CALL  PLOT  ( XB,VB,2) 

XB-0.0 

YB—SF*Z 1 2, 1 1 
CALL  PLOT  t XB, YB, 3) 

YB*SF*2  (2,11 
CALL  PLOT  ( XB, YB, 2) 


L*2 

00  85  J* 1, 2 
K»0 

00  62  N-l,  12 

k»k*i 

X 1 ( K 1 «$F*YI L »N 1 
X2(K)«$F*Z(L,N) 
62  CONTINUE 
XHK+ll-0.0 
X l( K42) * 1.0 


X2<K4l)*0.0 


PLOT  61 
PLOT  62 
PLOT  63 
PLOT  6A 

-PLOT  65 

PLOT  66 
PLOT  67 
PLOT  68 
PLOT  69 
PLOT  70 
PLOT  71 
PLOT  72 
PLOT  73 
PLOT  76 
PLOT  75 
PLOT  76 
PLOT  77 
PLOT  76 
PLOT  79 
PLOT  80 
PLOT  81 
PLOT  82 
PLOT  83 
PLOT  86 
PLOT  85 
PLOT  86 
PLOT  87 
PLOT  88 
PLOT  89 

PLOT  90 

PLOT  91 
PLOT  92 
PLOT  93 
PLOT  96 
PLOT  95 
PLOT  96 
PLOT  97 
PLOT  98 

PLOT  99 

PLOT  100 
PLOT  101 
PLOT  102 
PLOT  103 
PLOT  106 
PLOT  105 
PLOT  106 
PLOT  107 
PLOT  108 
PLOT  109 
PLOT  110 
PLOT  111 
PLOT  112 
PLOT  113 
PLOT  116 
PLOT  115 
PLOT  116 
PLOT  117 
PLOT  118 
PLOT  119 
PLOT  120 
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X2(K*2)-1.0 

PLOT 

121 

CALL  SCOSHL  1 XI , X2,K , 1,PA, A I 

PLOT 

122 

CALL  LINE  <X1,X2,K,1,~1,2I 

PLOT 

123 

K-0 

PLOT 

12* 

DO  B 3 N*  1,  12 

PLOT 

125 

K-IUI 

PLOT 

126 

X1(K)-SF*(V(L»N) ♦OEFLN*! V2IL»NI-YIL»NI I ) 

PLOT 

127 

X2IK)«SF*mL.N)+OEFLMA<  Y3ll,N)-2IL,N)>) 

PLOT 

126 

63  CONTINUE 

PLOT 

129 

CALL  LINE  IXl,X2,K,  1,1, A) 

PLOT 

130 

I F ( I BCE  3 .NE.  2 (GOTO  66 

PLOT 

131 

L«li 

PLOT 

132 

65  CONTINUE 

PLOT 

133 

114 

66  CALL  °LOT  (A. 25, -3.0, *3! 

PLOT 

135 

CALL  I’LOT  10.0, -1.0,3) 

PLOT 

136 

CALL  PLOT  10.0,1.0,2) 

PLOT 

137 

CALL  PLOT  10.0,0.0,3) 

PLOT 

136 

CALL  PLOT  (-A12.-A 22,2) 

PLOT 

139 

CALL  PLOT  10.0,0.0,3) 

PLOT 

1A0 

CALL  PLOT  1 A11,A21,2) 

PLOT 

1AI 

143 

00  50  M«2,Il 

PLOT 

1A3 

IPEN-  3 

PLOT 

1AA 

00  AO  N-1,12 

PLOT 

1A5 

TE1"XIM,N1*0EFIM*IYHH,N)-XIN,NH 

PLOT 

IA6 

TE2*YIH,N)'*0EFLH*IY2IM,NI-YIH,NI ) 

PLOT 

IA7 

TE3-2  IN,N)*-OEFLM*l  Y3(N*N  1-2 IN,N 1 1 

PLOT 

1A8 

XP-XMf TE1,TE2) 

PLOT 

IA9 

VP«VM(TE1,TE2,TE3> 

PLOT 

150 

35  CALL  PLOT  (XP,YP,IPEN) 

PLOT 

151 

IFI IPEN  .LT.  3)G0T0  AO 

PLOT 

152 

IPEN-2 

PLOT 

153 

GOTO  35 

PLOT 

ISA 

AO  CONTINUE 

PLOT 

155 

50  CONTINUE 

PLOT 

156 

00  70  N-1,12 

PLOT 

157 

IPEN*  3 

PLOT 

158 

00  60  M-2.il 

PLOT 

159 

TEl«XlN,N)«-OEFLM*(YHM,N)-XIM,N  J ) 

PLOT 

160 

TE2-YIM,N)*OEFLM*IY2IM,N)-YIM,N)) 

PLOT 

161 

TE3«2IM,N|aDEFLM*(Y3IM,N|-2IH,N)) 

PLOT 

162 

XP-XMITE1.TE2) 

PLOT 

163 

YP-YMI TE1.TE2.TE3I 

PLOT 

16A 

AS  CALL  PLOT  < XP.YP, IPEN ) 

PLOT 

165 

IFI  IPEN  .LT.  3)G0T0  60 

PLOT 

166 

IPEN-2 

PLOT 

167 

GOTO  A5 

PLOT 

168 

60  CONTINUE 

PLOT 

169 

70  CONTINUE 

PLOT 

170 

RETURN 

PLOT 

171 

END 

PLOT 

172 

161 


SUBROUTINE  GRAPH 

DIMENSION  SVHl(4),$YM2(3),ETAU3>,f fXl<4>  ,X2(4I 
COMMON  (USE  MAIN) 

COMMON  /PLOTO/  VNP»X0IST»PAI4> 

OA”  At  SVMK I ) • I-  l,4)/10HCONP0NF’\?  , lOHOf  VECTOR  » IOHOI SPLACEME. 

:/ 

DATA ( ETA t(  I )«I-l,3)/10Hi.  <Al  - ,10H  I ,4H  )/, 

I i ET  A2( 1 ) , I* It 31 /IOHE TA2  - tiOH  ( ,4H  )/, 

OATAI SYM2I I ) « I- 1, 3) /IOHENERGY  BAL * 10HANCE * POUN.8HO- INCHES/ 

X0IST-8.0 

CALL  PLOT  (XOIST»-VNP»-3) 

X BAR-O. 0 

YNP-2.0 

Xl-B.O 

YL-6.0 

N-NCVCL 

CALL  SCALE  (TIM,XL,N,1) 

XMIN-TIN(NM) 

XS-TIM(N«2> 

.. GRAPH  ONE  (VECTOR  DISPLACEMENT!  

CALL  NAXMIN  (Ul, VNIN,VMAX, l ,N, 1 » 

CALL  MAXMIN  (U2t VMIN»VMAX, 1 ,N,2 > 

CALL  NAXMIN  (U3. VNIN,VNAX, 1 ,N,2 » 

XU  ll-VMIN 
XH2I-VMAX 

CALL  SCALE  IX1.VL,2,1) 

YMIN-XIOI 
VS-X1I4I 
UlINMI-VNIN 
U1(N«2>-VS 
U2(NH)-VMIN 
U2IN*2)-VS 
UUNMI-VMIN 
U3IN*2)-YS 

CALL  PLOT  <XBAR,YNP,-3) 

CALL  AXIS  I0.0,0.0,4HTINE,-4,XL,0.0,XMIN,XSI 
CALL  AXIS  (0.0,0. O.SYNl, 32, Yl,90.0,YNIN,YS) 

CALL  LINE  ( T IM,Ui,N, 1,0,01 
TX-TIN(N)/XS«.2 
TY-(U1(N)-YN1M)/VS 
CALL  SYMBOL  ITX,TY, .1,2HU1,0.0,2I 
CALL  LINE  (T IM,U2«N* 1,0,0) 

TV* I U2( N l-VM IN ) /VS 
CALL  SYMBOL  ( TX, TY, . i,2HU2« 0.0,2) 

CALL  LINE  (TIM,U3,N, 1,0,0) 

TY-1U3INI-VN INI/VS 
CALL  SYMBOL  (TX,TY,.l,2HU3,0.0,2) 

CALL  SYMBOL  I 2.  1,-1 .0,  . W8HL0CA  TION,0.0,B) 

CALL  SYMBOL  ( 3. 0,-1. IS, .A, 1H  ,0.0,1) 

CALL  SYMBOL  (S.3,-1.1S,.4,1H  ,0.0,1) 

CAi.L  SYMBOL  ( 3.  1,-0. 9, . 1.ETA1 ,0.0,2A) 

CA.i  NUMBER  (3.8,999.,.1,ETA01,0.0,3) 

CALl  NM-1ER  (A. a, 999... I, ON, 0.0, 3) 

CALL  SYMBOL  (3.  1,*-1.1«.1,ETA2«0.0,24) 

CALL  NUMBER  (3.8,999.,.1,ETA02,0.0,3) 

CALL  NUMBER  I 4.8,999., . I , ON, 0.0, 3) 

— GRAPH  TNO  (ENERGY  BALANCE)  

X BAR-0.0 
YNP-10.0 


• *** 

GRAP 
GRAP 
GRAP 
2HNTGRAP 
GRAP 
GRAP 
GRAP 
GRAP 
GRAP 
GRAP  1 1 
GRAP  12 
GRAP  13 
GRAP  14 
GRAP  15 
GRAP  16 
GRAP  17 
GRAP  18 
GRAP 
GRAP 
——GRAP  21 
GRAP  22 
GRAP  23 
GRAP  24 
GRAP  25 
GRAP  26 
GRAP  27 
GRAP  28 
GRAP  29 
GRAP 
GRAP 
GRAP 

GRAP  33 
GRAP  34 
GRAP  35 
GRAP  36 
GRAP  37 
GRAP  38 
GRAP  39 
GRAP  40 
GRAP  4) 
GRAP  42 
GRAP  43 
GRAP  44 
GRAP  45 
GRAP  46 
GRAP  47 
GRAP  48 
GRAP  49 
GRAP  50 
GRAP  51 
GRAP  52 
GRAP  53 
GRAP  54 
GRAP  55 
GRAP  56 
GRAP  57 
—GRAP  58 
GRAP  59 
GRAP  60 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


19 

20 


30 

31 

32 
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CALL  MAXMIN  1C tN,YMIN,VMAX, . ,N.1I  GAAP  6 

CALL  MAXMIN  (STC,VM!N,VMAX,  t « «<« • 2 » GAAP  A 

CALL  MAXMIN  ( TNA, YM IN, VMAX, 1 ,N, 2)  GAAP  A 

CALL  MAXMIN  (OAMPLT, YM1N, VMAX.l ,N,2)  GAAP  A 

X 1<  I ) »YN  IN  GAAP  A 

X 1 1 2 1 «VNAX  GAAP  A 

CALL  SCALE  (XI, U, 2,1)  GAAP  A 

YMlN-XUJI  GAAP  A 

VS-XllAI  GAAf*  A 

C INI N + l I » YM  I N GAAP  7 

C INI N*2 ) *YS  GAAP  7 

STCIN+l )*VMIN  GAAP  7 

SrCIN«2)>VS  GAAP  7 

TNA(N*1 l«VMIN  GAAP  7 

TNA I N*2  I »YS  GAAP  7 

0AMPLT|N«1I*VMIN  GAAP  7 

0AMPLT(N*2)-VS  GAAP  7 

CALL  PLOY  I X BAA , YNP * — 3 1 GAAP  7 

CALL  AXIS  ( 0*0, 0>0«  AMT  I ME ,- A, XL  ,0*  OtXMl Nt XSI  GAAP  7 

CALL  AXIS  IC.O,0.0,SVM2,2AtVL,90.0,VNIN,YS>  GAAP  A 

CALL  LINE  I TIM.CIN.N, 1,0,0)  GAAP  • 

CALL  LINE  ( TIM, STC»N, 1,0,01  GAAP  A 

CALL  LINE  (TIM, TNA,N, 1,0,0)  GAAP  A 

CALL  LINE  (TIM, OAMPLT.N, 1,0,01  GAAP  A 

C SUAPACE  STAAIN  GAAPHS -GAAP  A 

00  100  I * l.NSTAN  GAAP  A 

J-1»MAXAA*I 1-1 » GAAP  A 

CALL  STAGAA  I T IP .EPSS1.EPSS2.ETAG 1 ( 1 1 ,E TAG2 (It ,PM! I) ,PNI 1 1 , GAAP  A 

1NETAGI  D.J.N)  GAAP  A 

100  CONTINUE  GAAP  9 

HETUAN  GAAP  9 

ENO  GAAP  9 
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C x is  THE  NAME  Of  THE  ARRAY  CONTAINING  THE  X COORDINATE  DATA. 

C Y ,2  IS  THE  NAMES  OF  THE  ARRAYS  CONTAINING  THE  V COORDINATE  DATA. 

C ETA1.ETA2  LOCATION  FOINT  USED  IN  THE  TITLE. 

C PM1.PN1  MESH  LOCATION  USED  IN  THE  TITLE. 

C NETA  IS  THE  CONTROL  FOR  INNER  OR  OUTER  USED  IN  THE  TITLE. 

C J IS  THE  LOCATION  OF  THE  FIRST  OATA  FOINT  IN  ARRAYS  Y A NO  2 FOR 

C EACH  STRAIN  FLOT. 

C N IS  THE  NUMBER  OF  OATA  FOINTS. 

DIMENSION  X(1),Y(1),Z41),  SYMl I 3 ) , SYM2I 3) .SYM3I2 ) ,SYM4(2 I ,X1 (4) , 
1X2IAI 

COMMON  /PLOTO/  YNP.XOtST.PAIAI 

OAT A I SYMl IK ) ,K* 1, 31 /IOHE TA|  - ,IOH  I .AH  )/» 

1 (SVM2(K),K*1,  31 / 10HE TA2  - «IOH  I .AH  )/» 

2 I SYM3IX I . R> l . 21/ IOHE TA2  COMFO. AHNENT/, 

J ISYMAIKI.K*!. 2) /IOHE TAI  COMFO. AHNENT/ 

C 

IFI I.EQ.OIGOTO  10 
l>l*l 

YNF«YNF4lO.O 

YBAR.10.0 

IFI I.LE.3IGOTO  29 

YNP-YNP-10.0 

CALL  FLOT  I XOIST„-YNP,-S> 

GOTO  20 
10  XDIST-13.0 

CALL  PL 01  IX0IST.-YNP.-3I 
*L«e.o 


j YL«6.0 

' CALL  SCALE  (X.XL.N.ll 

XMIN>XIN«I) 

XS-XIN+2) 

20  XBAR-0.0 
VNF-0.0 

t Y BAR-0.0 

! ,*1 

29  CALL  MAXM1N  I Y.YMIN.VMAX, J.N.ll 

f CALL  MAXMIN  (2 . YMIN. YMAX . J.N. 21 

Xim-YHIN 

XII2I-YMAX 

| CALL  SCALE  1X1. VL. 2.11 

| YM1N-X1I31 

\ YS-XHA) 

! JM-J.N 

\ JSaJ+N*l 

Y(JM)-YN1N 

Y(JS)*VS 

KJMI-YMIN 

ZIJSI-YS 

CALL  FLOT  I XBAR.YBAR.-3) 

CALL  AXIS  I 0.0,0»0*4HTIME,-4,XL .O.O.XMIN.XSI 

CALL  AXIS  10.0.0. 0.10HSTRAIN  I I.10.YI,90.0,VMIN,YS> 

CALL  SYMBOL  I 1.8.-1.O..1.6HL0CA TION.O.O.B) 

CALL  SYMBOL  (2. 7.-1. 19. .A, 1H  ,0*0.1) 

CALL  SYMBOL  1 9.0*- 1 . 19*. A, 1H  .0.0,1) 

IFINETA  .NE.  OIGOTO  30 

CALL  SYMBOL  1 9. 3, -1.0*. 1, 9H0UTER .0.0.9) 

GOTO  39 

30  CALL  SYMBOL  (9.3,-1.0,.l,9HINNER,0.0,9) 

39  CALL  SYMBOL  I 2.8.-0.9, . 1, SYMl ,0.0. 24) 


1 

STRG 

2 

STR9 

3 

STRG 

A 

STRG 

9 

STRG 

* 

STRG 

7 

STRG 

B 

STRG 

9 

STRG 

10 

STRG 

11 

STRG 

12 

STRG 

IS 

STRG 

1A 

STRG 

19 

STRG 

16 

STRG 

17 

STRG 

IB 

STRG 

19 

STRG 

20 

STRG 

21 

STRG 

22 

STRG 

23 

STRG 

2A 

STRG 

29 

STRG 

26 

STRG 

27 

STRG 

2B 

STRG 

29 

STRG 

30 

STRG 

91 

STRG 

32 

STRG 

43 

STRG 

3A 

STRG 

39 

STRG 

36 

STRG 

37 

STRG 

3B 

STRG 

39 

STRG 

AO 

STRG 

41 

STRG 

A2 

STRG 

A3 

STRG 

AA 

STRG 

AS 

STRG 

A6 

STRG 

A7 

STRG 

AB 

STRG 

A9 

STRG 

90 

STRG 

91 

STRG 

92 

STRG 

93 

STRG 

94 

STRG 

$9 

STRG 

96 

STRG 

97 

STRG 

SB 

STRG 

99 

STRG 

60 

L 
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CALL  NUMBER  I 3.5,999. 1,E TAl ,0.0,11 

CALL  NUMBER  U.5,999., . 1,PM1,0.  0,3) 

CALL  SYMBOL  ( 2.0,-l.t, .1,SYM2,0.0,2M 

CALL  NUMBER  I 3.5,999., , l,E TA2.0.0, 3) 

CALL  NUMBER  (A.5»999.«.UMNL,0.0tS) 

X1I1U2.9 

*2(1)— 1.3 

XII 21*3. A 

*2(21— 1.3 

XH31-0.0 

X2( 31*0.0 

X U 9 1*1.0 

X2C 91*1.0 

CALL  LINE  (XltX2*2* 1,0,0) 

CALL  SYMBOL  1 3. 6,-1 . 3, . 1 , SYMAtO.O, 1*1 
X2(l»  — 1.5 
X2I2I  — 1.5 

CALL  SCDSHL  ( X 1 , X2, 2, l.P A. A 1 

CALL  SYMBOL  ( 3.6,- I . 5, . I, SYM3,0. 0, 1AI 

CALL  LINE  ( X , Y( J I ,N, 1, 0, 0 ) 

CALL  SCDSHL  (X,2 I J),N, I, PA. A) 

RETURN 

END 


STAG  '6 
STAG  A 
STAG  A 
STAG  A 
STRG  A 
STAG  A 
STAG  A 
STAG  A 
STAG  A 
STAG  T 
STAG  T 
STAG  T 
STAG  T 
STAG  T 
STAG  T 
STAG  7 
STAG  7 
STAG  7 
STAG  7 
STAG  B 
STAG  B 
STAG  B 
STAG  B 


165 


SUBROUTINE  MAXM IN  ( A* AMI N.AMAX* J.N.KE Y) 
OlHENSION  A( i) 

GOTO  110*201. KEY 
10  JIO 

J2-J4N-1 

ANlN«AtJl) 

ANAX«At J2) 

20  00  100  I*J1* J2 

AHAX-AMAXll AMAX.At 1 ) ) 

AMIN-AMINlf AMIN.Atl )) 

100  CONTINUE 
RETURN 
END 


••••  1 
MAXM  2 
MARK  1 
MAXN  A 
MAXM  5 
MAXM  A 
MAXM  7 
MAXM  B 
MAXM  9 
MAXM  10 
MAXM  11 
MAXM  12 
MAXM  IS 
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SUBROUT 1NE  SC0SHLIX*Y*M.1NC*PA.NI 

cm 

X,Y  AIK  THI  NAMES  OF  THE  ARRAYS  CONTAINING 

the  x and  y 

SCDS 

c 

COORDINATES*  ANO  THE  SCALING  PARAMETERS. 

I SEC  •SCALE*.) 

SCDS 

cm 

M IS  THE  NOMOCR  OP  POINTS  IN  THE  X ANO  V ARRAYS.  THIS  DOES 

SCOS 

c 

NOT  INCLUDE  THE  TWO  EXTRA  LOCATIONS  POR  THE  SCALING  PARAMETERS. 

SCDS 

cm 

INC  IS  THE  INCREMENT  THAT  THE  SCOSHL  SUBROUTINE  IS  TO  USE 

SCDS 

c 

IN  GETTING  DATA  PROM  THE  X ANO  V ARRAYS. 

(SBC  'SCALE*. ) 

SCDS 

cut 

PA  IS  THE  NAME  OP  THE  LINEAR  ARRAY  WHICH  CONTAINS  THE  ELEMENTS 

SCOS 

c 

OP  THE  PATTERN  WHICH  IS  TO  BE  REPEATEO  UNTIL  THE  CURVE 

SCDS 

c 

IS  DRAWN. 

SCDS 

10 

c 

PAID*  POR  !•!•  1.5. * CORRESPOND  TO 

the  dashes  in 

SCOS 

11 

c 

THE  PATTERN*  WHILE 

SCOS 

12 

c 

PAID.  POR  1 *2* 4. A* CORRESPOND  TO 

THE  SPACES 

SCDS 

11 

c 

BETWEEN  THE  DASHES. 

SCDS 

1* 

cm 

N IS  THE  NUMBER  OP  CLEMENTS  IN  THE  PATTERN 

DESCRIPTION. 

SCOS 

IS 

DIMENSION  PAI  II.XUI.VI  II 

SCDS 

u 

NPaMPINC+l 

SCDS 

IT 

NQ-NPHNC 

SCOS 

IB 

OXal.O/XINOI 

SCOS 

14 

PXaXINPI 

SCOS 

20 

oral. 0/VINO) 

SCOS 

21 

PVaV(NP) 

SCOS 

22 

R«0 

SCOS 

21 

OLN-O.O 

SCOS 

2* 

0X2-(XI1)-PX)*0X 

SCOS 

29 

ov2aimi-pvi«ov 

SCOS 

24 

1-1 

SCOS 

2T 

J«l 

SCDS 

21 

OTO-PAI I I 

SCOS 

24 

CALL  PL0TI0X2.0V2.S) 

SCOS 

10 

GOTO  10 

SCOS 

11 

20 

OSI-OV2-OV1 

SCOS 

92 

OCO-DX2-OX1 

SCOS 

11 

OLN-SORTI OS  1 «0S 1 *OCO*OCO ) 

SCDS 

14 

R*MOO(J. 2 1 

SCDS 

15 

IPIOLN.LC.OTDIGOTO  10 

SCOS 

14 

DX1-OR1«OTO«OCO/OLN 

SCOS 

17 

OY|aOYI*OTD*OSI/OLN 

SCOS 

IB 

CALL  FLOTIOXl.DVl.l-R) 

SCOS 

19 

SCOS 

40 

IPI J.GT.NIJal 

SCOS 

41 

OTO-PAI J) 

SCDS 

42 

GOTO  20 

SCOS 

41 

10 

IPIR.HE.OICALL  PL0TI0X2.0Y2.2) 

SCOS 

44 

0XI-0X2 

SCOS 

45 

0VI-0V2 

SCOS 

44 

1-IMNC 

SCOS 

47 

IPII.GT.M)  RETURN 

SCOS 

4B 

0X2-1 XII)«PX|*OX 

SCOS 

49 

0Y2-IYm-PYt#0Y 

SCOS 

50 

OTD«OTO-OLN 

SCOS 

51 

GO  TO  20 

SCOS 

52 

END 

SCOS 

51 

1 
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APPENDIX  E. 

FORTRAN  LISTING  OF  THE  REPSIL  PROGRAM 

The  listing  is  given  in  the  following  order,  consisting  of  Main 
program  and  22  subroutines. 


1. 

MAIN  Program 

12. 

BOUNDU 

2. 

START 

13. 

ABINIT 

3. 

INVEL 

14. 

SYMTRY 

4. 

POSITN 

IS. 

KINET 

5. 

DGEOM 

16. 

PWORK 

6. 

GRAD 

17. 

DAMP 

7. 

STRESS 

18. 

DESTEP 

8. 

RESULT 

19. 

PDATA 

9. 

MOTION 

20. 

PRESS* 

10. 

WRTAPE 

21a. 

INGEOM  (Flat  Plate) 

11. 

STRAIN 

21b. 

INGEOM  (Full  Cylinder) 

21c. 

INGEOM  (Cone) 

There  are  three  nonstandard  FORTRAN  statements  used: 

1.  COJUON  (USE  MAIN)  is  used  instead  of  repeating  long  COMMON 
statements  in  the  subroutines  that  appear  in  the  MAIN  program. 

2.  CALL  SKIPFILE  (t,n)  is  used  in  subroutine  PDATA  to  move  tape 
t^  forward  n file  marks.  The  next  READ  or  WRITE  statement  will 
begin  with~the  information  after  the  file  mark. 

3.  CALL  BACKFILE  (t,n)  is  used  in  subroutine  PDATA  to  move  tape  _t 
backward  n file  marks.  The  next  READ  statement  will  begin  with  the 
information  after  the  file  mark,  the  WRITE  will  erase  the  file  mark. 


♦Subroutine  PRESS  gives  the  pressure  loading  applied  in  the  flat 
plate  example.  Section  5.1, 


Preceding  page  blank 


169 


c 

c 

c 

c 


c 


c 

c 


c 


MAIN  PROGRAM  MAIM 

MAIN 

TAPE  1 RESTART  INFORMATION  MAIN 

TAPE  INPLOTI  PLOTTING  OATA  MAIN 

COMMON  V1(23.34I.Y2(  23.34).Y3(23t ?4) «U1 (23(341 »U2 (23»34)»U3(23*341MAIN 
1.FN1K23.  34)  .FM12(23.34).FM22  (23.34)  .FNll  (23.34)  .FN12  (23. 34).  MAIN 

2FM13(23»  34). FN21I 23. 34I.FN22I23.34) .FN23 (23.34) .SNl (23.34 ) » MAIN 

3SN2(  23»34)ilSN3( 23.34).TEMP( 23*34)  «P(23»34)  .EPSL1  (23.34)  » MAIN 

4EPSL2( 23.34I.GAMNALI 23.34) .EP SOI (23 .34) .EPSU2 (23 .34) .GAMMAU (23.34 (MAIN 
S.S  IGK23.34.  12).SIG2(23«34»12).TAU(23.34.12)  .LMAT (23*34.  4),  MAIN 

60EPSK4)  .0EPS2(4  ) .OGAMMA (4) .ZETA(4) .SS1MN(M  .SS2MN  (4 ) .STMN  (4)  . MAIN 

7ZETASQ(4 I.NCVCHI S0).NC3OP(50) .JCVNLP(SO)  MAIN 

COMMON  MMvMR.MS.NN.NR.NS.Nl.Ml.RDll .R012.RD22  *RTD1 .RT02.MB1.  MAIN 

10EIA1.0ETA2. TRD.NN30.DAMPF.DFACT.MDAMP.TDAMP.LOAO.DELGAM  MAIN 

COMMON  E.FNU.G.PRAT.SIGZ.GAMZ.H.t AVER. DELTAT. TIME. LPRESS.GTNO.  MAIN 

INNN.NCYCLE.NRITE.NCONT.NSTRN. CINER.CINES.CINEP.Cl »C2 .NPLOT . MAIN 

20ELS0.TA.MAXC.MRITE.CA.CB.CINET.STREN.PLAST.TNRG.NBI.NB2.ENS.6NR  MAIN 

COMMON  NPRINT.N0ELP.MESH.NMESN.1BCE1.IBCE2.IBCE3.IBCE4.ISR.NSFL.  MAIN 

1KJMAX.VLDFAC.NLP  MAIN 

COMMON  NI1(6).MI2(6).N 11(6) *N 12(6) .DM1 (6) .0M2(6> ,ONl (6) »0N2(6) . MAIN 

1PM(6).PN(6).ETAG1(6)»ETAG2(6) .ANGLE (6) .AN6LB(6) .NETAG (6).EPSS1 (6). MAIN 
2EPSS2I6 ) . JCHK( 3 ) MAIN 


COMMON  OM.QN.MQ1.MQ2.NQ1.NQ2.QM1.0M2.QN1.0N2.D1.02.D3.ETA01.ETAD2  MAIN 
COMMON  G Ill(  61.6122(6  )»GU2(6I.ASA(6)»BSA  (6)  »CSA(6)  *ASB(6)  *BSB(6).MAIN 
1CSB(  6I.B11K  6I.B12K6)  .8221(6)  .A11K6I  »A121  (6)  .A221  (6  ) *8112(6  > • MAIN 
2B122(6).B222(6)«A112(6).A122(4).A222(6).B113(6) .B123(6»«B223'6)«  MAIN 


3A1 13( 6), A 123( 6 I.A223I 6>.B114(-. «B124 (6) .B224 (6) ,A114(6) ,A124  , MAIN 

4A224I 6 )*  OSR( 3).PSR(3)*SSIG(3) . SEPS(3) » SE (3) .SIGZS0I3) .NT (3 ) MAIN 

COMMON  Vll.V  12.V13.Y21.Y22. Y23.U11.U12 .U13.U21 .1122 ,U23»  MAIN 

1 Ylll, Y112.V113.Y121.Y122.Y123.Y221 .Y222 » Y223.  MAIN 

2 Ulll.U112.U113.U121.lll22.U123.U221 .0222 .0223  MAIN 

COMMON  A11.A12.A22.SRA.CS111.CS112.CS122.CS211 .CS212.CS222 . MAIN 

1 B11.B12.B22.BT . BM11.BM12.BM21.BM22.CINES1  MAIN 

MAIN 

NPL0T-3  MAIN 

NLP*1  MAIN 

NNN-1  MAIN 

CALL  START  MAIN 

MAIN 

CHECK  IF  THIS  IS  A RESTART  MAIN 

IF(NCONT  .EQ.  0)GCT0  13  MAIN 

CALL  URTAPE  (21  MAIN 

NPRINT«(NCYCLE«MOO(NCYCLE»NOELP))*NOELP  MAIN 

GOTO  49  MAIN 

SET  CYCLE  NUMBER  - 0 MAIN 

IS  NCYCLE-0  MAIN 

TIME-0.0  MAIN 

CINES-O.C  MAIN 

TOAMP-O.O  MAIN 

CINEP-0.0  MAIN 

ENS-0.0  MAIN 

Cl-0.0  MAIN 

C2-0.0  MAIN 

C3-0.0  MAIN 

SET  SYMMETRY  BOUNDARY  CONDITIONS  FOR  EDGE1.E0GE2 .E0GE3  MAIN 

1F( IBCE2  «NE.  2)GOTO  17  MAIN 

CO  16  M-2.HI  MAIN 

YKM.NN)-Yl(M.NR)  MAIN 

Y2IM.NNI— Y2(M.NR)«2.0*Y2(M.NS)  PAIN 

Y3(M.NN)-Y3(M,NR)  MAIN 


1 

2 

3 

4 
3 
6 

7 

8 
9 

ID 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
43 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
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16 

CONTINUE 

MAIN 

61 

17 

CO  20  N-  l.NN 

RAIN 

62 

Vlll.NI— Y1(3,N) 

MAIN 

63 

V2(  1»N|-  V21 3»N ) 

MAIN 

64 

Y3I1.NI-  V3C 3.N1 

MAIN 

63 

IFII8CE3  .NE.  2 (GOTO  20 

MAIN 

66 

VI IMM.NI— V1IMR.NI 

MA3N 

67 

V2IMM.NI-  V2IMR.N) 

MAIN 

68 

V3IMM.NI-  V31MR.N ) 

MAIN 

69 

20 

CONTINUE 

MAIN 

70 

MAIN 

71 

SET  INITIAL  0 1 SPL  ACEMENT * PRE  S SURE  * S TK A I N AND  STRESS  - 0 

MAIN 

72 

CO  28  M-l.NM 

MAIN 

73 

00  28  N-l.NN 

MAIN 

74 

U1IM.NI-0.0 

MAIN 

75 

U2IM.NI-0.0 

MAIN 

76 

U3IM.NI-0.0 

MAIN 

77 

PIM.N 1-0.0 

MAIN 

78 

EPSL14M.N 1-0.0 

MAIN 

79 

ERSL2IN*NI-0.0 

MAIN 

60 

GAMMALIM.N 1-0.0 

MAIN 

81 

EPSU1IM.N  1-0.0 

MAIN 

82 

EPSU2IM.NI-0.0 

MAIN 

83 

GANN AUIM.N 1-0.0 

MAIN 

• 4 

CO  28  K-1.RJMAX 

MAIN 

85 

SIGl(M,N<KI-0. 

MAIN 

86 

SIG2iM,N.K|uO. 

MAIN 

87 

TAU(H.NvK)-0. 

MAIN 

68 

28 

CONTINUE 

MAIN 

89 

MAIN 

90 

IF (LOAD I 29.30.29 

MAIN 

91 

29 

CALL  PRESS 

MAIN 

92 

30 

CEL GAM-DEL SQ/GAMZ 

MAIN 

93 

WRITE  INITIAL  CARTESIAN  COORDINATES.  PRESSURE 

MAIN 

94 

NR  ITE( 6. 300} 

MAIN 

95 

CO  46  M-2.M1 

MAIN 

96 

46 

WR  JT El  6. 400 )M,(N.Y1(M«N),Y2(M.N),Y3IM.N) .P (M.N) .N-1.N1) 

MAIN 

97 

MAIN 

98 

CALL  OGEGM 

MAIN 

99 

CALL  STRAIN 

MAIN 

100 

IFILOAOI  31.31.43 

MAIN 

101 

MAIN 

102 

31 

call  invel 

MAIN 

103 

MAIN 

104 

CO  35  M-2.MS 

MAIN 

103 

00  33  N-2.NS 

MAIN 

106 

U1 <N,N)-CELTAT*U1(M.NI 

MAIN 

107 

U2(M.N|-0ELTAT*U2IM»N) 

MAIN 

106 

U3 IN.N)-DELTAT4U3(N.N) 

MAIN 

109 

33 

CONTINUE 

MAIN 

110 

CAU  BOUNDU 

MAIN 

111 

CALL  KINET 

MAIN 

112 

CINES-2.06CINET 

MAIN 

113 

TNRG-CINES 

MAIN 

114 

MAIN 

113 

IFILOAOI  62.65.43 

MAIN 

116 

MAIN 

117 

42 

CALL  PWORK 

MAIN 

116 

MAIN 

119 

43 

CO  44  N-2.MS 

MAIN 

120 
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c 

c 


00  44  N-2,NS 

MAIN 

121 

U1<M,N)-U1(N,NI-PIN,N)*SNKM,N>*TEMP(H,N) 

MAIN 

122 

U2(M,N)-U2<N,N)-P(N,HI*SN2(N,N)*TEMPIH,N) 

MAIN 

123 

U3 (M,N)*U3(M,N )-P(H,N)*SN3(H,N)*TEMP(M,N) 

MAIN 

124 

♦4 

CONT INUE 

MAIN 

123 

CAU  IOONDU 

MAIN 

126 

CALL  PWORR 

MAIN 

127 

ENR-ENS 

MAIN 

126 

CALL  KINET 

MAIN 

129 

TNftG-CIMET 

MAIN 

130 

45 

IF (NCVCHt 1 ) .EQ.  OINNN-2 

MAIN 

131 

49 

CALL  POATA  111 

MAIN 

132 

MAIN 

133 

END  INITIALIZATION 

MAIN 

134 

SO 

NCVCLE-NCYCLE+1 

MAIN 

135 

TIME-T1ME»0ELTAT 

MAIN 

136 

CHECK  FOR  FINAL  STEP 

MAIN 

137 

IF  1 NCYCL E-MAXC ) 60,60,70 

MAIN 

136 

CHECK  IF  CALL  PRESS  IS  NEEDED 

MAIN 

139 

60 

I?(LPRESS~NCVCLE)  64,62,62 

MAIN 

140 

62 

CALL  PRESS 

MAIN 

141 

64 

CALL  POSITN 

MAIN 

142 

CALL  DC EON 

MAIN 

143 

CALL  STRAIN 

MAIN 

144 

CALL  NOTION 

MAIN 

145 

CALL  POATA  12) 

MAIN 

146 

CALL  OANP 

MAIN 

147 

CHECK  FOR  RESTART  OUMP 

MAIN 

148 

IF < NCYCL E-NRITE)  90,66,50 

MAIN 

149 

66 

'ALL  NRTAPE  (1) 

MAIN 

150 

MR  17  E*MR ITE+NR I TE 

MAIN 

151 

CALL  POATA  13) 

MAIN 

152 

GOTO  30 

MAIN 

153 

VO 

IF  INCYCLE  .LT«  25ICALL  EXIT 

MAIN 

154 

CALL  PDATA  (3) 

MAIN 

155 

CALL  POATA  14) 

MAIN 

156 

CALL  EXIT 

MAIN 

157 

MAIN 

158 

300  F0RMAmMl,32X,29t:iNITIAL  CARTESIAN  COORDINATES, 32X 
11MN»  3X, 1HN«9X,7HV1 (M«N ) , 18X,7HY2(M,N) ,18X,7HV3 (N,N) 
400  FORM ATI  214, 41 2X«E23*16)/( I6,4(2X,E23«16) ) ) 

ENO 


•8HPRESSURE/3X.MAIN  159 
,20X,6HP(W,NI I MAIN  160 
MAIN  161 
MAIN  162 
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SUBROUTINE  START 

*•** 

1 

DIMENSION  TITLE! 8) 

STAR 

2 

COMMON  (USE  MAIN) 

STAR 

3 

RE AO! 5* 100 ) TITLE 

STAR 

4 

READ! 5, 105)  ME SH,NMESH, LAYER • YLDFAC 

STAR 

5 

READ! 5. 105  ) HA XC , NC  ON  T , NR I TE »DELTAT 

STAR 

6 

READ! 5, 110)  IBCE1, 1BCE2, IBCE  3,IBCE4 

STAR 

7 

READ! 5,115)  L0AD«LPRE SS,MOAMP,DAMPF» DFACT 

STAR 

B 

READ! 5, 120)  E, FNU, 3 IGZ.RHO, THICKN,NSFL , I SR 

STAR 

9 

I F (NSFL  .EQ.  1 .AND.  ISR  .EQ.  0)COTO  700 

STAR 

10 

1FINSFL  .EQ.  0 )COTO  700 

STAR 

11 

READ  (5,125)  ( SS1G! Jl ,SEPS( J) ,0SR(J> *PSR IJ) , J-l , NSFL ) 

STAR 

12 

700 

I F (NSFL  .LT.  1)  1SR—1 

STAR 

13 

I F(NSFL  .LT.  1)  NSFL-1 

STAR 

14 

READ! 5,110)  NPRINT, (JCHK(J), J-l, 31 

STAR 

15 

READS  5,110)  NUMCV, 1 NC YCH1 J) » J-l , NUMCY) 

STAR 

16 

READ! 5,110)  NLPRIN, (JCYNLP(J) ,J-1,NLPRIN) 

STAR 

17 

READ!  5,  110)  N3D,(NC3DPIJ),J-1,N30> 

STAR 

16 

SSIGI  D-SIG2 

STAR 

19 

SEPS( 1 l-SIGZ/E 

STAR 

20 

KJMAX-LAYER*NSFL 

STAR 

21 

SE(  l)-E 

STAR 

22 

SIGZSQ! 1)-SSIG(1)«*2 

STAR 

23 

00  795  J»1,NSFL 

STAR 

24 

IF!  ISR  .LT.  DGOTO  794 

STAR 

25 

I F ( DSR ( J ) .GT.  0.0  .ANO.  PSR(J)  .GT.  O.OIGOTO  793 

STAR 

26 

79 1 

WRITE! 6,792) 

STAR 

27 

792 

FORMAT! //46H  ERROR  IN  STRAIN  HARDENING  OR  STRAIN  RATE  DATA  ) 

STAR 

28 

CALL  EXIT 

STAR 

29 

793 

PSR! J ) - 1.0/P SR! J) 

STAR 

30 

794 

IFIJ  .EQ.  II  GOTO  795 

STAR 

31 

IFiSEPSI J ) .LE. SEPS! J- 1 1 ) GOTO  791 

STAR 

3? 

SE(JI-(SSIG(J)-SSIG(  J-ll  )/(SEPS(  JI-SEPS!  J-l) ) 

STAR 

33 

WT( J- 1 1*1 SE( J-l l-SE ( J 1 l/E 

STAR 

34 

S IGZSQ! J)-(E*SEPS(J ) 1**2 

STAR 

35 

795 

CONTINUE 

STAR 

36 

WT(NSFL )*SE(NSFLI/E 

STAR 

37 

c 

CHECK  NUMBER  OF  MESH  POINTS  NEEOEO  FOR  ETA1 ,ETA2  DIRECTIONS 

STAR 

38 

NM-MESM+2 

STAR 

39 

NN-NMESH41 

STAR 

40 

Nl-NN 

STAR 

41 

c 

CHECK  BOUNDARY  CONDTIONS  FOR  E0GE2 

STAR 

42 

IF! IBCE2  .NE.  2IGOTO  4 

STAR 

43 

NN-NNESHA2 

STAR 

44 

Nl-NN-1 

STAR 

45 

c 

STAR 

46 

4 

M1*MM 

STAR 

47 

MB1-MM-2 

STAR 

48 

NBI-3 

STAR 

*9 

NB2-NN-2 

STAR 

50 

c 

CHECK  BOUNDARY  CONDTIONS  FOR  EDGE 3 

STAR 

51 

IF! IBCE3  .NE.  2IG0T0  5 

STAR 

52 

MH-MESH+3 

STAR 

53 

Ml-MM-1 

STAR 

54 

MBl-MM-1 

STAR 

55 

5 

HS-MM-1 

STAR 

56 

NS-NN-1 

STAR 

57 

MR-MM-2 

STAR 

58 

NR-NN-2 

STAR 

59 

IFIIBCE3  .EQ.  3)  MB1*MS 

STAR 

60 

f.-wv-i  “"w»m  x»  ■ ’■".40 ' 


IFUBCE4  .60.  3)  NBl-2 

STAR 

61 

IFUBCE2  .NE.  11  NB2-NS 

STAR 

62 

STAR 

63 

REA0I St  130 > ETADl* ETAD2»N$TRN 

STAR 

64 

REAOI  5.  151 16TAGim,ETAG2m,ANGLE4ll,AMOLBm,NETAG4I).I-l,WSTAM)STAB 

65 

STAR 

66 

CALL  INGEOH 

STAR 

67 

QM-2»0*ETAD1/DETA1 

STAR 

66 

QN-1.0+ETA02/DETA2 

STAR 

69 

MQl-QH 

STAR 

TO 

NQ2-MQK1 

STAR 

71 

N01-QN 

STAR 

72 

NQ2-NQK1 

STAR 

73 

QMl«QH~FlOAT<HQll 

STAR 

74 

0M2-FL0ATIM02I-QM 

STAR 

75 

ON I*ON- FLOAT (N01) 

STAR 

76 

ON2-FLOAT1NQ2I-QN 

STAR 

77 

00  20  I-l.NSTRN 

STAR 

78 

PHI  I )-2«0+ETAGll 1 J/DETAl 

STAR 

79 

PHI  K-1.0+ETAG2I  1 1/0ETA2 

STAR 

80 

MIllll-PMUl 

STAR 

61 

MI2lll«Wll(l|4l 

STAR 

82 

NIMII-PNIII 

STAR 

83 

HI 21 1 )«NI It  I )♦! 

STAR 

84 

PMl-MIMI) 

STAR 

85 

PM2-MI2UI 

STAR 

86 

PNl-NIKI) 

STAR 

87 

PN2-NI2U) 

STAR 

88 

0M1(I)-PH( II-PH1 

STAR 

89 

0M2in-PH2>PHII) 

STAR 

90 

ONlin-PNUt-PNI 

STAR 

91 

0N2U  )«PN2-PHm 

STAR 

92 

20  CONTINUE 

STAR 

93 

TIME  INCREMENT  BV  VON  NEUMAN 

STAR 

94 

C«SORTI E/ (RHO*l 1.0-FNU**2I ) ) 

STAR 

95 

DELN«2.0/(C*SQRTf  1.0/DETAl**2M.0/DETA24*2M 

STAR 

96 

2AYER-LAYER 

STAR 

97 

FL AVER* (Z AVER/2.0 1**2 

STAR 

98 

0ETAN».0833333333333333~( 1.0/148. 0*FLA YERI 1 

STAR 

99 

DX4-1.0/DETA1**4 

STAR 

100 

0V4-1.0/0ETA2**4 

STAR 

101 

T2*<1.0*15.0*FNU>/(8.0*DETA1**2«>OETA2**2I 

STAR 

102 

OEL B* 1.0/1 2.04 TH I CKN*C*  SOR  T ( OE TAN* 10X4*0 V4*  T2 )| ) STAR 

103 

DELM  IN- AM  INK  DELB  .DEL  Ml 

STAR 

104 

SUM- 1.0 

STAR 

105 

25  RSUM-1. O/SUM 

STAR 

106 

SUM-SUM«10.0 

STAR 

107 

IF(RSUM  .IT.  DELMIN IGOTO  30 

STAR 

108 

GOTO  25 

STAR 

109 

30  DELHIN-AINTIDELMIN* SUM) /SUM 

STAR 

110 

DEL IN-DELTAT 

STAR 

111 

I F(OELJN  .GT.  0* 0 (DEL MI N-AMI Nl( DEL INI DELHI N) 

STAR 

112 

OELTAT-DELMIN 

STAR 

113 

PROGRAM  CONSTANTS 

STAR 

114 

H-Q.5*THICKN 

STAR 

115 

GAMZ*TMICKN*RHO 

STAR 

116 

NDELP-NPR INT 

STAR 

11? 

MRITE-NC0NT4HRITE 

STAR 

118 

00  3 K*l, LAYER 

STAR 

119 

ZETA1K)-H*( 1.0-I2.0*FL0AT(K)-1.0)/ZAVER» 

STAR 

120 

S 

| 

I 
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ZETASQIK)  • ZETA<K)**2 

CONTINUE 

TA-H*!2.0/ZAV€R» 

OELSQ"OEL  TAT**2 
O*.5*E/ll.0*FNU) 

GTW0-G*2.0 

PAAT-E/ll.O-FNl»*2) 

RTD1* 1.0/1 2.0*D£TA1) 

RT02* 1.0/1 2.0*0ETA2 ) 

r01I%l.Q/0ETAl**2 

R022«1.0/DETA2**2 

R012-0.2S/|DETA1»DETA2) 

CA«0ETA1*0ET*2 

CB"TA*DETAl*DETA2/£ 

TRD-2.0*R012 

DAMPING  CONSTANTS 
C 2 «2. 0*0EL TAT*DAMPF /GAME 
Cl«C2/!4.0*C2> 

WRITE! 6*1301 
WRITEI6,140)  TITLE 
WRITE (6, 150)  MESH,DETAl,NMESH»DETA2 
WRITE! 6,3001  DELB, DEL M, DEL  IN, DEL TAT 
WRITE! 6,1601  E,FNU,S1GZ,RH0,TH!CKN 
WRITE! 6, 1701  NC0NT,MAXC,NPR1NT,NRITE 
WRITE  1 6, ITS)  LAVER, NSTRN, LOAD, LPRESS 
WRITE! 6, 180)  I6CE l, IBCE2, I8CE 3.IBCE4 
WRITE (6, 185)  ! JCHR! I), 1-1, 3) 

WRITE ! 6, 190)  1NCYCH! I ),1-1,NUMCV) 
WRITE! 6, 500)  1 JCVNLP! J) , J-l.NLPRIN) 


I FINSFL .GT. I )WR I TE ( 6, 820INSFL 

WRITE!6,821)IJ,SSIG(J), SEPSI J) ,DSR(J) ,PSR!J) , J»1 ,NSFL ) 
WRITE! 6,110) 

T I ME* CELT AT*FL OAT! NOAMP ) 

WRITE! 6,200)  NOAMP, Tl ME, OAMPF ,OFACT 
RETURN 

IS) 


STAR  121 
STAR  122 
STAR  123 
STAR  124 
STAR  125 
STAR  126 
STAR  127 
STAR  128 
STAR  129 
STAR  130 
STAR  131 
STAR  132 
STAR  133 
STAR  134 
STAR  13S 
STAR  136 
STAR  137 
STAR  138 
STAR  139 
STAR  140 
STAR  141 
STAR  142 
STAR  143 
STAR  144 
STAR  145 
STAR  146 
STAR  147 
STAR  148 
STAR  149 
STAR  ISO 


WRITEI6, 

195) 

INC3DPI1 ),I«1,N30) 

STAR 

151 

IF! ISR  . 

EQ.  - 

1)  WRITE  16,400) 

STAR 

152 

I FINSFL 

.EQ. 

1 .AND.  ISR  .EQ. 

1) 

WRI TE 16,405 ) 

STAR 

153 

IFINSFL 

.GT. 

I .AND.  ISR  .EQ. 

0) 

WRITE  16,410) 

STAR 

154 

IFINSFL 

.EQ. 

1 .AND.  ISR  .EQ. 

0) 

WRITE  16,415) 

STAR 

155 

IFINSFL 

.GT. 

1 .AND.  ISR  .EQ. 

1) 

WRI TE 16,420) 

STAR 

156 

IS  FORMAT! 4E 10.4, 1 
100  FORMAT! 8A10) 

105  FORMAT! 315, E12, 6) 

110  FORMAT! 1615) 

115  FORMAT! 3IS.2E12. 6) 

120  F0RMATISE12. 6,215) 

125  FORMAT! 4E15.7) 

130  FORMAT! 2E10.4, 15) 

140  FORMAT! 1H1 , 53X, 15HBRL  REPSIL  C00E//24X,8A10/> 

150  FORMAT !38X,I4,29H  MESHES  IN  THE  ETA1  DIRECTION, 3X ,8H( 0ETA1 
1 1H )/38X, 1 4, 29H  MESHES  IN  THE  ETA2  DIRECTION, 3X,8H(OETA2  -E12 
2/) 

160  FORMAT ( 57X, 17HV0UNG * S MODULUS  -E12.6 

1 /32X , 17HP0I SSON • S RATIO  *E12.6,10X,17HYtELD  STRESS 

2 /32X , 1 7HMASS  DENSITY  -E 12.6,10X,17HTHICKNESS 
3/  ) 

170  FORMAT! asX, 18HSTART  AT  TIME  STEPI S/55X.18HFINAL  TIME  STEP 


STAR  137 
STAR  158 
STAR  159 
STAR  160 
STAR  161 
STAR  162 
STAR  163 
STAR  164 
STAR  16S 
STAR  166 
STAR  167 
STAR  168 
STAR  169 
STAR  170 
STAR  171 
STAR  172 
E12.6,STAR  173 
•6, 1HISTAR  174 
STAR  175 
STAR  176 
*E12.6STAR  177 
*E12.6STAR  178 
STAR  179 
,15/  STAR  180 
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1 55X.21MSUAFACE  STRAINS  EVEAYI5.10H  TIME  STEF/  STAR  181 

2 SSX*21HRESTART  WRITE  EVERYI5.10H  TINE  STEP/)  STAR  182 

ITS  FORMAT ( ASX 1 7HL AYER  »I 5* 18X.8HNSTRN  -15/  STAR  18) 

1 OX* 7HL0AD  -I 5* 18X*8HLPRESS  *15/1  STAR  184 

180  FORMATI 54X# 19HB0UNDAR Y CONDI TI0NS/47X.31H1/2/3  • CLAMPED/ SYMMETRY/ STAR  18S 

IHINCE0/57X*  7HEDCE 1 •! 4/57X»7HEDGE2  *I4/57X»7HEDGE3  *14/  STAR  186 

2 57X* 7HEDGE A >14/1  STAR  187 

185  FORMATI 50X*25HPRINT  OPTION  CONTROL  CARD/52X*20H0/1  • NO  PRINT/PRINSTAR  188 

IT/ SOX « I4*24H  DISPLACEMENT  INCREMENTS/  STAR  189 

2 SOX* 1 4* 32H  CARTESIAN  COORDINATES*  PRESSURE/  STAR  190 

3 SOX  * 1 4*  33H  SURFACE  NORMAL  VECTOR  COMPONENTS/)  STAR  191 

190  FORMATI 24X.4SHPR1 NT  INFORMATION  AT  THE  FOLLOWING  TIME  STEPS/I24X*  STAR  192 

1116151)1  STAR  193 

195  FORMATI 24X.38H3-D  PLOTS  FOR  THE  FOLLOWING  TIME  STEPS/ I24X.I 1615) I )STAR  194 
200  FORMATI /46X*29HSTART  OAMPING  AFTER  TIME  STEPIS*SX»6HTIME  -E10.4/  STAR  195 

140X* 7H0AMPF  -E10.4, 16X.7H0FACT  -E10.4)  STAR  196 

300  F0RMATI47X*2SHBEN0ING  TIME  INCREMENT*  E12.6/47X*25HMEMBRANE  TINE  STAR  197 
1INCREMENT*  E12.6/47X.2SHINPUT  TIME  INCREMENT-  E12.6//44X, 31HT1MSTAR  198 


2E  INCREMENT  USEO  BY  REPSIL*  E12.6/) 
400  FORMAT  I /37X, 32HC0NSTI TUTI VE  RELATION 
405  FORMATI /24X*78HC0NSTI TUTI VE  RELATION 
1ENING-STRA1N  RATE  DEPENDENT) 

410  FORMATI /24X, 77HC0NST! TUTI VE  RELATION 
1NG-STRA1N  RATE  INDEPENDENT) 

415  FORMATI /24X, 80HC0NST1 TUTI VE  RELATION 
1ENING-STRA1N  RATE  INDEPENDENT) 

420  FORMATI /37X.75HC0NSTI TUTI VE  RELATION 
1NG-STRAIN  RATE  DEPENDENT) 


STAR  199 

ELASTIC)  STAR  200 

ELASTOPLASTIC-NO  WORK  HAROSTAR  201 

STAR  202 

ELASTOPLASTIC-WORK  HAROENISTAR  203 

STAR  204 

ELASTOPLAST!C'NO  WORK  HAROSTAR  205 

STAR  206 

ELASTOPLASTIC-WORK  HAROENISTAR  207 

STAR  208 


500  FORMATI 24X.49HPRINT  L MATRIX  ILMAT)  AT  THE  FOLLOWING  TIME  STEPS/  STAR  209 

1I24X,  1615)'/  STAR  210 

820  FORMATI 35X*31HSTRESS-STRAIN  APPROXIMATION  HAS»I3*10H  SUBLAYERS)  STAR  211 

821  FORMATI /46X,40HSTRESS-STRAIN  AND  STRAIN  RATE  PARAMETERS/  STAR  212 

130X* 1HJ*9X« 7HSSIGI J )* 8X* 7HSEPSI J ) *14X*6H0SR I J) *8X,8H1/PSRIJ)/  STAR  213 

2I26X,  I5.5X.1P2E15.7.5X.2E15.7))  STAR  214 

END  STAR  215 
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SUBROUTINE  INVEL 
COMMON  (USE  MAIN) 

EVALUATE  TH6  INITIAL  VELOCITY  AT  TIME»0  FOR  ALL  MESM  POINTS 
RE ADI  5* IOO)  MI,NF,NI.NF,VR,NV 
WRITKA.200)  MItMFtNI  «NF»VR 

DO  30  MfJI.MF 
00  30  N-NlfNP 
UllMfcN)»-VR*SNllN,N) 

U21N4N)  — VR*SN2!N,N) 

03IMtN)—VR«SN3!M.N) 

30  CONTINUE 

IF INV ) 50*50*40 
AO  WRITE! 6*300) 

00  45  R-L.NV 
REAOI S« 500)  N*N»  V 
WRITE! 4,400)  N.N.V 
Ut(N*M)«-V*SNltM*N) 

U2INVN)— V*SN2!M*N> 

U3(M,N>— V*SN3IM|N) 

45  CONTINUE 
50  RETURN 

100  F0RNAT(4IS,E12.6.15) 

200  FORMAT! 1H1*31X«3H(N>* 13. 1H* *13. 9H)  AND  !N**I3,IH..I3430H)  RECEIVE 
1FULL  VELOCITY* ( VR  )■  .E12.6/I 

300  FORMAT ( S2X« 27H0TNER  VELOCITY  0ISTR1BUTI0N/57X.1HM.4X41HNI.8K.1MV/) 

400  FORMAT! 54X«2I5*2X«E 12 >6) 

500  FORMAT! 2I5.E12. 6) 

END 


*44* 

1 

INVE 

2 

INVE 

3 

INVE 

4 

INVE 

5 

INVE 

6 

INVE 

7 

INVE 

8 

INVE 

9 

INVE 

10 

INVE 

11 

INVE 

12 

INVE 

13 

INVE 

14 

INVE 

15 

INVE 

16 

INVE 

17 

INVE 

18 

INVE 

19 

INVE 

20 

INVE 

21 

INVE 

22 

INVE 

23 

INVE 

24 

INVE 

25 

INVE 

26 

INVE 

27 

INVE 

28 

INVE 

29 

INVE 

30 

a 


$0 


SUBROUTINE  ROSITN 
COMMON (USE  MAIN I 
00  50  M-I.Mm 
00  50  N»1,NN 
ri(M»N)>VI(NvNUUt(N»N) 

*2(M*N)»V2(N,N>HI2IN,N) 

UX'ZV' UJ'"^ 

*N6*  WYCHINNN|»GOTO  75 
INC*S*£*T$ 

IM  JCHK( |)|  63,63.55 
>5  NCYONCVCLE-l 

*****  J6»50’>  NCVC.NCYCtE 
NRITt  (6.9915) 

00  60  H-2.M1 



2211!  NCVCti.TIME 

00  70  NCVCL€»NCYCL*»NCYCLE 

75  RETURN<6,,02>  M',N»V»‘M*N>.V21N.NI,V3(N,NI.|.()(tN|,M.l,Nl| 


63 

65 


509 


BOS  I 

BOS  I 

BOS  I 

BOS  I 

BOSi 

BOS  I 

BOSI 

BOSt 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSI 

BOSt 


lJMMmHl.iU.M»,s,i,clllE1,I  INCREMENTS  BETWEEN  T.S..14.4N  »N0 
B..5M.«T„N  

: t*“  r*  :rs;  ^ * 

»°2  'MWTUU.41EE.EEJ.UI/UB.4UE.CEJ.UIII  J«| 

BOSI 


1 

2 

3 

9 

5 

6 
7 
6 
9 

XO 

11 

12 
IS 
19 

15 

16 
17 
ia 

19 

20 
21 
22 
23 
29 

25 

26 
27 

2a 

29 

SO 

31 

32 

33 
39 
35 
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SUBROUTINE  DGEOM 
CORHON  I USE  MAIN! 

$TREN«0.0 
CO  90  N-2.H1 
CO  90  N»l,Nl 
CALL  GRAC  I M * N I 
RN1"SNM*,N) 

RN2*$N2(M»N) 

RN3«SN3(M,Nt 

A11«YH**24Y12**24V13**2 
A22“Y21**24Y22**24Y2  3**2 
A12«Vll*V3l4Y12*V224Y13*V23 
CA>A11*A22>a12**2 
RA«1 . O/OA 

sra-sqatioai 

RRAM.O/SRA 

IF (LPRESS  .GE.  NCYCLE ) P C R,N » «SRA*P I R,N> 

IF  INCYCLE  «EQ.  CIGOTG  86 

IFIM. EQ.HM  .AND.  IBCE3.EQ.  UGCTC  87 
1FIK.EQ.1  .AND.  IBCE4.EQ. UGCTC  87 

IFIN. EQ.NN  .AND.  I6CE2.EQ.  UGCTC  87 

86  SNl<M,N>oRRA*(V12*V23~Yl3*V22) 

SN2( H,N ) "RRA*I Yl3*Y21-Yll*Y23I 
SN3(M,N»-RRA*( Y11*Y22-Y12*Y21 I 

87  Rll>SNllHtN)*Yin«SN2(N.N)*YU2«SN3(PtN»*V113 
B12-SNI(M,N)*Y1214SN2IM*N$«YL224SM3(MtN)*Yl23 
822>SNl(MtN)*Y22l4SN2(N(N)*Y2234SN3(M.N)*Y223 
IF  INCVCLE.GT.OI  GOTO  88 
TEMP<M»NI-0ELGAM*RRA 

CALL  ABlNIT(N.N) 

GOTO  90 

88  ARU-  RA*A22 
AR22*  RA*AU 
AR12— RA*A12 

8M ll^ARl 1*81  14AR  12*8 12 

8N12-AR11*B124AR 12*822 

BM21* AR 12*81 14AR 22*8 12 

8M22«AR12*8124AR22*822 

BT ■8M11*BM22 

VRU-AR11*V114AR12*V21 

VR12-ARU*Y124AR12*Y22 

YR13«ARtl*Y134AR12*V23 

YR21-AR12*V114AR22*Y21 

YR22-AR12*V124AR22*Y22 

VR23-AR12*Y134AR22*V23 

CS111-YR11*Y1114VR12*YU24VR13*V113 

CS  U2*YR 1 1*Y 12I*VR12*Y1224VR1 3*V123 

CS122-YR11*V2214YR12*V2224VR13*Y223 

CS211“VR21*Y 1 ll4VR22*V112*YR23*Y113 

CS212«YR21*Y12l4YR22*VU24YR23*Y123 

CS222-YR21*Y2214YR22*Y2224Y«23*Y223 

CNL1— RN1*U11-RN2*U12-RN3*U13 

CNL2—  RN1*U21-RN2*U22-RN3*U23 

CNR  1 ■ AR1 1*DNL l+AR 12*ONL2 

CNR2«AR12*ONL14AR22*ONL2 

SNN-RNl*SNl(NtN)4RN2*SN2(M,N)4RN3*SN3(M,N) 

CN ■ I ONL  l *ONR  1 40NL  2*DNR  2 1 / ( 1 . 04  SNN ) 

CAU«YU*Ull4Y\2*U12«Yl3*U13>C.S*lLHl**24Ul2**24(a3**2) 

CA22»V21*U2l4Y22*U224V23*ll23“C.5*UJ2i**24Ll22**24Li23**2l 

CA12-0.5*IY11*U214Y21*UU4Y12*U224Y22*U124Y13*U234V23*U13 


• ••*  1 

CGEO  2 
CGEO  3 
CGEO  A 
OGEO  S 
CGEO  6 
CGEO  ? 
CGEO  8 
CGEO  9 
CGEO  10 
CGEO  11 
CGEO  12 
CGEO  13 
CGEO  14 
CGEO  15 
CGEO  16 
CGEO  17 
OGEO  18 
CGEO  19 
OGEO  20 
CGEO  21 
CGEO  22 
OGEO  23 
OGEO  24 
CGEO  25 
OGEO  26 
CGEO  27 
CGEO  28 
CGEO  29 
OGEO  30 
CGEO  31 
OGEO  32 
OGEO  33 
OGEO  34 
OGEO  35 
OGEO  36 
OGEO  37 
OGEO  38 
OGEO  39 
OGEO  40 
OGEO  41 
OGEO  42 
CGEO  43 
CGEO  44 
CGEO  45 
CGEO  46 
CGEO  47 
OGEO  48 
OGEO  49 
CGEO  50 
CGEO  51 
CGEO  5? 
CGEO  53 
OGEO  54 
n»EO  55 
CGEO  56 
CGEO  57 
CGEO  58 
CGEO  59 
CGEO  60 
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jyv 

V 


L -011*U21-U12*U22-U13*U23I 

CCEO 

41 

C01l>RNl*U)ll4RN2*U1124MN3*U1134CSm*0NLl*CS211*0NL2«ail«0N 

CCEO 

42 

MlI*Kltl«uan»M2*U2M««N)*U»S»CU!2*ONU*CS»i»Olll2*IU»ON 

06E0 

41 

C812>RNl'U121*RN2»U1224RN9*U123*CS112»ONL14CS2l2*Oia24ai2*ON 

CCEO 

44 

CO  89  Ml, LAYER 

COSO 

49 

CEPS1 IK I*CA1 l^IETAIK 1*0811 

RCIO 

44 

CEPS2IK )>OA22-*ETA|K)«OB22 

CCEO 

47 

CCAMNAIK l*DA12-tETAtKI*0B12 

CCEO 

48 

CAU  STRESS  (M.N.K) 

OCEO 

49 

•9 

CONTINUE 

CCEO 

70 

EPSL1IM,N)-EPSL1IM,N)4DA114H*0B11 

CCEO 

71 

EPSL2IM,N)-EPSL2IM,N)40A22«H*0B22 

CCEO 

72 

CAMMAL<N,N)-CAMMALtN,N)40A124H*0B12 

OCEO 

73 

EPSUlIM.N )rEPSU1!M,N  •♦0A11-M*0811 

CCEO 

74 

EPSU2!N,NI>EPSU2<N,N)*OA22-H*OB22 

OCEO 

79 

CANMAUI M,N )-GAMNAUI M,N )40A12-H*DB12 

OCEO 

74 

CALL  RESULT  !M,N) 

CCEO 

77 

90 

CONTINUE 

CCEO 

78 

IEINCYCLE  .EQ.  0I60T0  820 

OCEO 

79 

CALL  SVNTRV 

CCEO 

80 

100 

STREN*CB*STREN 

OCEO 

81 

IFUBCE2  .EQ.  2)  STREN-2.C*STREN 

OCEO 

82 

c 

WRITE  LMATRIX 

OCEO 

83 

IE  INCYCLE .HE .JCYNLP (NLP) (GOTO  820 

OCEO 

84 

NLP'NLPU 

OCEO 

89 

WR|TH6,8I1INCYCII,T!NE 

CCEO 

84 

CO  802  Ml. LAVER 

OCEO 

87 

WRITE  16, 812)K,!N,N-2,M1) 

OCEO 

88 

CO  802  N«1,N1 

CCEO 

89 

802 

WRITEI6,813lN,ILMAT!N,N,K),M-2,Ml) 

OCEO 

9C 

c 

WRITE  SURFACE  NORMAL  VECTOR 

OCEO 

91 

820 

IF (NCYCLE  .NE.  NCYCHINNN 1 IGOTO  700 

OCEO 

92 

IE  I JCMKI 3 1 ) 700,700.800 

OCEO 

93 

800 

WRITEI6.900)  NCYCLE, TINE 

OCEO 

94 

WR1TE(8,910) 

OCEO 

99 

CO  810  M-2.MI 

CCEO 

94 

810 

WRITE! 6,920)  M, IN,SNl(N,N) .SN2IM.N) ,SN3 |N,N) ,N«1 ,N|2 

OCEO 

97 

700 

RETURN 

CCEO 

98 

c 

CGEO 

99 

Oil 

FORNATI 10H1T INK  STEP,15,6X,4HTIHE,1PEU.7,1H. ,10X, 

06E0 

100 

1 4QHSU6C I VISIONS  OF  TIME  INCREMENT  IN  STRESS/) 

OCEO 

101 

312 

FORMATI//20X,9HLNAT(M,N,12,1):)//9H  N *•  ,4013/) 

CCEO 

102 

813 

FORMAT! 13, SX, 40 13) 

OCEO 

103 

900 

FORMAT! 10X17 IME  STEP, I 5, AX, SH  7IMC,E16.S) 

OCEO 

104 

910 

FORMAT! 22X, 32HSURFACE  NORMAL  VECTOR  COMPONENT S/3 X,1 

OCEO 

109 

1HM , 3X , lHN.OX, 8HSN1IM.N » * 17X ,8M$N2IM,N) ,17X,8HSN3 |P,N) ) 

OCEO 

104 

920 

FORMAT! 2 14, 91 2X.E23.16 )/( 18 .3I2X.E23.14) I ) 

OCEO 

107 

ENC 

OCEO 

lv« 
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SUMOUY  INC  MAO  4 NO 
CONMON  IUSI  NAINI 
N>NO 
N«NO 

IP  4N.IQ.NNI  SOTO  S 
VII*  ATOl*l  VUNHtN 
V12*  ATOi*|V2IN*l»N 
VIA*  ATDI*IVKN«ltN 
Oil*  ATOI*tUi<N*|«N 
U12-  ATDi*ll)2IN*l»N 
U1S*  RTOI*IUSIN«I«N 
Vill«AOII*IVItN*I.N 
VI I2*ADil*t V2IN+I  *N 
V1I3*RDIIMV3IN4|*N 
UIIi*ADII*IUIINn»N 
Ul i2*ADII6IU2IN*I*N 
UII3*ADII6tUS|N4|yN 
IP  IN.EQ.lt  GOTO  I 
IP  4N.CQ.NN)  SOTO  2 
V12i*AD126IVllN41yN 
V 1 22*40124 1 V2I N*lyN 
V12S*RD124|V3IN41yN 
Ul21*R012»IUltNHfN 
U 122*40124 1 U2IN+lyN 
U1 23*4012*  I USINHyN 
GOTO  A 

1 V121*RD12*IVllN-lyN 
1 -4.0*IVltN-lvN 

V122*A012*I V2I N-lyN 
I -4.0*IV2IN-lfN 
V 1 23*4012* I VSIH-l.N 
1 -4.0*IVSIN-lyN 
U121*R012*IUllN-lyN 
1 -4.0*IU1IN-1(N 

U 1 22-4012* I U2IH-1.N 
1 -4.0*IU2(N-lyN 

Ul23*RD12*4US4N-lyN 
I -4.0*tU3IN-l,N 
GOTO  A 

2 Y12l*RD12*l VllN*lyN 
I -4.0*IV1IN«1.N 

V122*RD12*IV2|H*ltN 
1 -4.0*IY2|N*1,N 

V123-RD12*IV3IN«lyN 
I -4.0*IY3|NM,N 
Ul21*ADl2*IUHN4lyN 
I -4.0*IU1INH,M 
U122-RD12*IU2IN«lyN 
I -4.0*IU2IN*1»N 
U133*RD12*IU3|M4ltN 
I -4.0*IUS|N*lyN 
GOTO  A 

1 VII*  AT01*lYl|N-2yN 
VI2-  AT01*IV2<N-2«N 
VIS*  RT01*I V SIN-2 yN 
OH*  RT01*IU1|M-2,N 
012*  RT01*tU2IN-2,N 
Oil*  RTOl*lU3tN-2yN 


NI-YHN-ltNI ) 
Nt-V2tN-lyNI) 
NI-V3IN-lyN)  I 
Nt-U1IN-1»NH 
N)-U2IN-lyNtl 
NI-U3IN-lyNH 


NI-2.0*Y1IN 
NI-2.0*V2IN 
N»-2.0*V3IN 
NI-2.0*U1IN 
N I- 2.  0*  U2  IN 
NI-2.0*U3|N 

1 

2 

NHI-VUN-l 

N*lt-V2IN-1 

NHI-V3IN-1 

N*1)-U1IN-1 

NHI-U2IH-1 

NHI-USIN-I 

N*2I-VIIN*1 
N*ll-VHN*1 
N«2)-V2IIH1 
N*1  I-V2INM 
N421-VSIN*1 
N*ll-V3IN*1 
N*2I-U1(N*1 
NHI-UIINH 
N«2I-U2IIHI 
NHJ-U2INM 
N*2 l-OIIP*! 
N*1  l-USIH+l 

N-2I-VHN-I 
N-1I-V1IN-1 
N-2I-V2IN-1 
N-1I-Y2IN-1 
N-2I-VSIN-1 
iN-l J-VSIN-l 
N-2J-UHN-1 
N-1I-U1IN-1 
N-2I-U2IN-1 
N-1I-U2IN-1 
N-2I-01IN-1 
N-ll-USIN-l 


Ni*Vl  IN-UNI  I 
NHV2IN-UNH 
NHVSIN-UNH 
NHUIIN-UN) » 
NHU2IN-lyNH 
NHU3IN-UNH 


N*1 l-Vl IN*  l yN-l I AVI  IN” 
N*ll-Y2IN*lyN-l>*V2IN- 
N*lt-Y3IN»lyN-ll*VllN- 
N*1I-U1  IN*lyN-l)*UllN- 
N*l)-U2IN*lyN-ll*U2IN- 
N*U-U3IN*lyN-ll*U3IN- 

N*2I 

N*ltl)-3.0*ATD2*V11 

| 

N«1)II-3.0*AT02*V12 

||42| 

IN1I)M.0*IITD2*Y13 
N*2 ) 

N*im-3.0*AT02*UU 
1^2 1 

N*ll>i-S.0*ATD2*O12 

1142 ) 

N+U>>-3.0*ATD2*U13 

N-21 

N-1IH*S.0*ATD2*VU 

N-21 

N-im*3.0*AT02*Y12 

N-2» 

N-im*3.0*AT02*V13 

N-21 

M-im*3.0*ATQ2*Ull 

N-21 

N-lltt*S.0*ATD2*U12 

N-21 

N-mt*3.0*ATD2*U13 


VII*  AT01*lYltN-2yN>-4.0*VllN-lyNt*3.0*Yl(NyN>> 

VI2-  4T01*IV2<N-2yNI-4.0*V2IN-lyNI*9.0*V2INyNH 
V13*  AT01*tV9IN-2yN)-4.0*V3tN-lyN)*S.O*V3INyN>> 

OH*  Rrol*IUltN-2yNI-4.0*UllN-lyNt*S.0*UHNyN>» 

012*  RT0l*IU2IN-2yNl-4»0*U2IN-lyNI*3.0*U2INyNl 1 

Oil*  RT01*lU3tN-2yNI-4.0*U3IN-UN)*3.0*U3<N,N>l 

VI 11*4011*1 2.0*VllNyN)-9.0*Yl IN-1 yNt*4.0*VltN-2yN>-YtlN-3yNH 

Vn2-RDll*l2.0*Y2tNyN)-9.0*V2tN-lyN)*4.0*V2tN-2yN)-V2IN~3yNH 


GAAO  A 
GAAP  t 
GAAO  A 
GAAO  7 
GAAO  0 
GAAO  9 
GAAO  10 
GAAO  II 
GAAO  12 
GAAO  II 
GAAO  IA 
GAAO  IS 
GAAO  IA 
GAAO  IT 
GAAO  IA 
GAAO  I* 
GAAO  20 
GAAO  21 
GAAO  22 
GAAO  22 
GAAO  2A 
GAAO  2S 
GAAO  2A 
GAAO  27 
GAAO  20 
GAAO  20 
GAAO  SO 
GAAO  Si 
GAAO  12 
GAAO  S3 
GAAO  34 
GAAO  SS 
GAAO  36 
GAAO  17 
GAAO  SO 
GAAO  SS 
GAAO  40 
GAAO  41 
GAAO  62 
GAAO  41 
GAAO  44 
GAAO  49 
GAAO  44 
GAAO  47 
GAAO  40 
GAAO  49 
GAAO  SO 
GAAO  91 
GAAO  92 
GAAO  93 
GAAO  94 
GAAO  99 
GAAO  96 
GAAO  97 
GAAO  96 
GAAO  99 
GAAO  40 


i 


7119*0011*' a. OftYKNtN  1-9. 0*V3<>>-1,N»  *4. 0*V3tN-2,N)~v|<N-)lNI| 
UlllkA011*ta.0*UltN»NI-9.0*Ul'N-l'NI»4.04'Ul'N-2,N)-01<M-ltNII 
U112*AOtlft<a.O*UatNtNI-9.0*Ua<lt-UN|»4.0ftUafN-2tNI-OatN-)«Nlt 
Ull9aAOU*<2.0ftW9<N«Ni-9.0ftU9lft-ltNI»4.0*U9tN-2tNI-09(*-3tNII 
4 IV  IN. IQ. II  GOTO  9 
IV  'N.IQ.NNI  SOTO  * 

vai-  RToa*iviiN»N*ii-vi(N»N-m 
via*  4Toa*ivaiN,N«n-vaiN(N-iii 
vai*  RTOa*IY9tN,N«ll-VltN*N-lll 
1121-  ATOa*<UllNfNftll-Ul'NtN-lll 
uaa*  iiToa*iua(N(N*ii-uaiN»N-ni 
Ulh  AT0a«tU9'NvN4ll-U3'NvN-l>l 

vaaiMoaa*m<N»N«ii-a.o*vi<ft«N}«vi<MtN>iii 
vaaa*«oaa*ivaiNvN»i i-a.o*va<N'Ni*va(N, n-i i i 
vaa9Mt0aa*tV9fN(N4l|-a.0«V9tN(NUV9<N»N-lll 
uaaikMoaa*iuiiN»N4\ i-a»o*ui iNfNi^ui <n«n-i i i 
uaaa«*oaa»tua<N.N4i >-2.o*u2«m,n) «uaiM. n-i i i 
uaa»*4oaakiunN,N*ii-2.o*u3(N,N»*ujiN,H-m 
IV  (N.NC.NMI  SOTO  T 

viat«iioia*m<ii-a»N4ii-vt<*-avN-it 

1 -4.0*<VHN-1,NM  l-YllN-l,N-llll43.0*ATDlftY21 

viaa«NDia*(va<N-atN4ii«va(N-a»N-n 
i -4.04tvatft-i»N4ii-va(N-!tN-titi4i.o*itTDi*vaa 

via9*Aoiaft<v3ni-a»N4ii-Y9<N-a«N-ii 
I -4*0*'Y9IN-l»N4l l-V9IN-l*N-lll 10.0*ATD1  *V23 

uiai«voia*iuiiN>a.N4ii>uiiM->atN>ii 

1 “4»0*1UIIN“I»N4| l-Ul IN-1 .N-l  1 I I0.04RT01 *021 

UI22*V0I2«IU2IN-2.N4||-U2(N>2.N-II 
1 -4.0*(U2IN-l,N4||-U2(IV-l»N>llll4).0*VTOl*uaa 

UiaikVOI2*IUl<N-2*N4l i<-USIN-2.N-l» 

1 -4.0*<U3tN-l.N4ll-U3IN-l(N-llllO.0ftAT01*U23 

SOTO  T 

9 V21— AT02*IVllNtN42l-4.0*YllNvN«li-»»k0*Vl(l'tNII 
V22— RT02*IV2(NtN42l-4.0*V2INtN«l|4l.O*va(N*NII 
V29~ATDaft<V9<N«N42l-4.0*Y3IN,N4ll49t0ftV9tN.NII 
U2l«“RT02*IUJIN»N42l“4.0*Uim*N4|  I O.0*Ul  I NfNI  I 
o2a»'RToa4iua(N,N4ai>4.o*uaiNvN4ii«9.o*uaiN«Nii 
U29*o-AT0a*(U3'M,N«ai-4.0*U3INvN4ll4Sh0*U9<M»NII 
V221-A0a2*(2.0ftVl'M,NI-5. 0« Y1  (H.N*  1 |44.0ftVl  I M,N*2  >-V l < M.NO  > I 
V222kR02a*ia.O*Va(MtNI>9.0*Y2(NvN4ll«4.04V2IN.N4ai-V2(N,N4)ll 
V2ai*ROaak(a.O*V9IN.N|>S.O*Vl(N,N4|l44.0*VllNtN4ai-V9IM«N49ll 
U22I>R02a*(a.0*UllN,NI-9.0*Ul(N,N4ll44.0*UI(NvN«ai-UIIN,N43ll 
u2aakRoaa*(a.o*uaiN(Ni>9.o4uatN«N4ii44.o*ua(NvN4ai-uatNlji»3ii 
0299*0022*1  a. 0*U3(N,N 1-9. 0*U3tN,N«ll44.0*U3tN.N42>-U9<NtN43 1 1 
IV  IN.NC.NNI  SOTO  7 

viai*-*oia«<viiM-a.N4ai-4.o*m<N-i,N4a}4vi<N-a,N4ti 
I -4.0*Vl(N-l,N4ll  i-ft.0*VllH(N»|49.0*<RTDl*vai-RTD2*VUI 
viaa«-Roia*iva(N-a*N4ai-4.o*(vaiN-i,N4ai4Ya(N«a»N4ii 
i -4.o*va<N~i»N4iii-«.o*va(N»Nti43.o*iiiTDi*vaa-RToa*vi2i 

V123*-R0ia*IV3(N>a,N4ai-4.04|V3(N-l«N4ai4V3IN-a(N4|l 
I -4.0*V3tN-l,N4lll-ft.0*Yl<N,Nll4l.0fttRT01*V29-RTDa*Vl3l 
u!2t*-Roia*<uuft-atN4ai-4.o*<ui<N-i«N*ai4Ui<N-a«N4it 
I -4.0*Ul<N-WN4lll-ft.0*UllN,NII«3.0*IRT01ftUai-AT0a*Ulll 
0122*-ft012*<U2'M-2(N42l-4.0*'U2<N-ltN42l4UatN-2tN*lt 
1 -4.0*Ua(N-t*N*ll )-ft.0*U2'N*Nl l«3.0*IAT01*U22-AT02*U12 I 

U129*-ft012*<U3(N-2,N*2l-4.0*<U9<M-l.N»2l*U3<*-2,N*l> 

I -4.0*U3IN-l,NMn-ft.O*U30'.NIl43.0*'ATDl*023-AT02*Ul3l 
OOTO  7 

ft  *21-  AT02*tVllN.N-2l-4.0*Vl'N,N-lt*3.0*Vl<M(N>l 
722-  AT02*( V2' A.N-2 1-4. 0VV2IN*N-I I4l, 0*V2 IN.NI I 
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Y23*  AT02*|V3lR.N-2l-9.0*V3tH,N-l)93w09YStRtN)> 

U21*  ATD29IUlIH»N-2l-9.0*UH*»N-im.0*UltRtNI> 

U22*  RT02MU2tMtN>2)«9.0*U2tM*N-l)»3.0*U2tM«NH 
U2  3*  RT029IU3IR»N-2)-9.09U3IR.N-llO.0*U3IR»Nn 
Y221“AD22*(2.0*Y1(H,N)-3.0*Y1  <R»N“II*9.0*Y1  (M»N-2 l-Yl (M* N-3  l I 
Y222*RD22*t2.0*Y2IN»NI-5.0*Y2»NfN-l>*9.0*Y2IH.N-2>-V2<mN-3n 
Y223*AD22*12.0*Y3«N»N>-S.0*YSINtN-l)»9.0*Y3IM,N-2)-V31N*N-3>» 
U221-ftD22*<2.0*Ul<N,N)-9.0*UL(M»N-lt«4.0*Ul<M»N-2)-Ul(M»N-3>l 
U222*RD22*( 2*0*U2IH»N )-5*0*U2 IRtN-lI*9«0*U2 IRtN-2 )“UIIR«N-3) ) 
U2 2 3*RD22* ( 2«0*U3 I H »N l -5» 0*UII M # N-l I ♦9«0*U3<M»N-2 I -U3 I H*N-3 ) I 
IF  (M.Ni.MM)  GOTO  7 

Y 121*  A0129tVllR-2*N-2l-9.0*mtR-l*N-2l9Vl  IH-2.N-1) 

1 -9,0*YHA-1.N-1>  >-9.0*Yl(N,Nn*3.0*<RTDl*Y21*RT02*Yil) 

Y122*  RD12*IY2IR-2#N-2)-9.0*IY2IR-l.N-2>*Y2tR“2.N-l» 

I -9.0*Y2IR“1*N-1»  I-9.0*Y2(M«N)U3.0*(RT01*Y22«RT02*Y12) 

Y 123*  R0129(Y3tR-2.N-2l-9.0<MY3tR-l,N-2»*Y3tR-2tN-l> 
l >9.0*Y3IM-1»N-1)  )-9.0*Y3(M,Nm3.0*tRT01*Y23*RTD2*Y13) 

U121*  RD12*IUHR-2|N-  21-9.0*  I U1  ( H-l  ,M-2I  ♦Ul  C H-2 1 N-l  > 
l -^.0*U1IH-UN*1I  >-9.0*Ul<MvN))0.0*tRTDl*U21*RTD2*UU> 

U122*  R012*IU2(M-2tN-2)-9.0*tU2IR-l.N-2»*U2tN“2.N-l> 

1 -9.0*U2(R-i»N-l)  )-9.0*U2(MtNm3.0*(RTDl*U22*RT02*Ul2) 

U123*  A012*(U3<N-2,N-2)-9.0*lU3tR-l,N-2)>U3tM-2tN-l> 

1 -9«0*U3I N-1»N- II >-9.0*U3(H,NII*3.0*tATDl*U23*RTD2*Ui3> 

7 RETURN 
ENO 


GRAO  121 
GRAD  122 
GRAD  123 
GRAD  129 
GRAO  123 
GRAD  126 
GRAO  127 
GRAD  128 
GRAO  129 
GRAD  130 
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GRAO  139 
GRAO  135 
GRAD  136 
GRAO  137 
GRAO  138 
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GRAO  190 
GRAO  191 
GRAO  192 
GRAD  193 
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183 


SUBROUTINE  STRESS < MO, ND.KO ) ****  l 
C CONSTITUTIVE  RELATI ON— LINEARLY  ELASTIC,  OR  E LAST  I C- ( -PERFECTLY  STRE  2 
C PLASTIC  OR  -STRAIN  HARDENING).  OPTIONAL  STRAIN  RATE  DEPENDENCE  STRE  3 


COMMON ( USE  MAIN) 

STRE 

4 

K^MD 

STRE 

5 

N .ID 

STRE 

6 

K-KO 

STRE 

7 

SSU-O.O 

STRE 

e 

SS12-0.0 

STRE 

9 

SS21m0»0 

STRE 

1C 

SS22*0.0 

STRE 

11 

LMNK-0 

STRE 

12 

KN*IK-1)*NSFL 

STRE 

13 

2 ETAK*2 .0*2ETA ( X ) 

STRE 

14 

Cll  *A1 1— Z ETAK*B1 1 

STRE 

15 

G12  »A12-ZETAK*B12 

STRE 

16 

G22  *A22-Z£TAX*B22 

STRE 

17 

DG»G1 1*G22-G12**2 

STRE 

18 

SRG-SORT(OG) 

STRE 

19 

RC*I.O/OG 

STRE 

2C 

GR1I  = RG  * G 22 

STRE 

21 

GR12*-RG*G12 

STRE 

22 

GR22  * RG  * Gil 

STRE 

23 

OEPS11  = GR1 1*DEP SI I K ) ♦ GR12*OGAMMA I K > 

STRE 

24 

0EPS12  « GR12*OEPS2(K)  ♦ GR 1 1 *7GAMMA ( K ) 

STRE 

25 

OEPS21  - GR12*OEPSl(K ) ♦ GR22*DGAMMAIK) 

STRE 

26 

DEPS22  - rR22*DEP S2(K ) ♦ GR12*OGAMMA(K) 

STRE 

27 

DSIG11  --  "’RAT*  ( DEPS11  ♦ FNU*OEPS22) 

STRF 

28 

DSIGlt  * GTWO*OEP  SI  2 

STRE 

29 

DSIG21  * GT«0*0EPS21 

STRE 

30 

DSIG22  * PRAT* ( 0EPS22  ♦ FNU*DEPSii> 

STRE 

31 

IF( ISR.GT .0(EPSD0T=SQRT(DEPS1 1*IDEPS1 1-DEPS22 ) +DE PS 22**2 

STRE 

32 

l*3.O*DEPS12*DEPS21)/0ELTAT 

STRE 

33 

DO  ) J-l.NSFL 

STRE 

34 

KJ*i  V ♦ J 

STRE 

35 

SIGilI»Gll*SIGHM,N,KJ)+Gi2*TAU(M,N,Kj: 

STRE 

36 

SIGi2I=G12*SIGl(M,N,KJ)»G22*TAU(M,N,HJ) 

STRE 

37 

SIG21I«G12*SIG2<M,N,KJ)+G11*TAU(M,N,KJ) 

STRE 

38 

SIG22I«G22*SIG2<MtNrKJ>*G12*TAUIM,N,KJ> 

STRE 

39 

SIGYSO-SIGZSOI J) 

STRE 

40 

I F ( ISR.GT.O)SIGYSQ*SIGYSQ*Ii.O*(EPSDOT/DSRI J) )**PSRI J) )**2 

STRE 

41 

t =1 

STRE 

42 

LC  = 1 

STRE 

43 

SIGUL«SlGllI*DSIGli 

STRE 

44 

SIG12L*SIG12I*OSIG12 

STRE 

45 

SIG21L*SIG2lI*DSlG2i 

STilE 

46 

SIG22L«SIG22I*DSIG22 

STP.E 

47 

IF( ISR.LT . U ) GOTO  2 

STRF 

48 

PH?T*SIG11L*IS IG1 1L-S IG22L 1 ♦ SI G22L**2*3. 0*S!G12L*SIG21L-S IGYSQ 

S'rfE 

49 

IMPHIT.LE.O.OIGOTO  2 

STRE 

50 

L* INT I YLOFAC*! SORT! IPMl T+SIGYSQ) /SIGYSQ)-l.O) )♦) 

STRE 

57 

loo  s:gii«sighi 

STRE 

52 

SIG12-SIG12I 

STRE 

53 

SIG21-SIG211 

STRE 

54 

S1C22-SIG22I 

STRE 

55 

lF(L.EQrl) GOTO  3 

STRE 

56 

LC  = 1 

STRE 

57 

FLOATL=1.0/FLOAT(L) 

STRE 

58 

□SGI 1L  * DS1G1 l*FLOATL 

STRE 

59 

DSG12L  = DS1G12*FL0ATL 

STRE 

60 
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0SG21L  » DSIG2l*FL0ATL 

STRE 

61 

0SG22L  « DSIG22*FL0ATL 

STRE 

62 

101  SlGllL-  SIG11+DSG11L 

STRE 

63 

SIG12L-  S IG12+0SG12L 

STRE 

6A 

SIG21L-  SIG2H0SG21L 

STRE 

65 

SIG22L-  SIG22+0SG22L 

STRE 

66 

PHIT»SIG11L*ISIG11L-SIG2?LI+SIG22L**2+3.0*SIG12L*SIG21L-SIGYSQ 

STRE 

67 

IF  1 PM I T .GT.  0*01  GOTO  3 

STRE 

68 

ELASTIC 

STRE 

69 

2 SIGH  « SIGlll 

STRE 

70 

SIG12  - SIG12L 

STRE 

71 

SIG21  * SIG21L 

STRE 

72 

SIG22  - SIG22L 

STRE 

73 

GO  TO  9 

STRE 

7A 

PLASTIC 

STRE 

75 

3 SIG110  « !2.0-FNUl*SIGll-!1.0-2.0*FNUI*SlG22 

STRE 

76 

SIG120  > 3.0*1 1.0-FNUI*SIG12 

STRE 

77 

SIG210  - 3.0*1 1.0-FNU1*SIG21 

STRE 

78 

S1G220  - ( 2.0-FNU )•  S IG22-(1.0-2.0*FNUI*SIG11 

STRE 

79 

AA  * SIG1 10**2- SIG1 10*SIG22D*SIG220**2*3.0*SIG120*S IG210 

STRE 

80 

B > -ISIG11L*! 2.0*SIG11D~SIG22D)+SIG22L*(2.0*SIG22D 

-SIG11DI+3.0*!SSTRE 

81 

1IG12L*SIG21D+SIG21L*SIG12DI  I 

STRE 

82 

0»B**2-A.*AA*PHIT 

STRE 

83 

IF (L  .GT.  LMNK 1 LMNK*L 

STRE 

8A 

IFI AA I 8» 16* A 

STRE 

85 

8 MP  1TEI6.10I 

STRE 

86 

10  FORMAT! IH  «AX, 1AHAA  NEGATIVE  ATI 

STRE 

87 

GOTO  12 

STRE 

88 

A IF C 0 .LT.  0.0  .OR.  B .GT.  O.OIGOTO  16 

STRE 

89 

TAM8DA»!-B-SQRT!D II /! 2.*AA) 

STRE 

90 

SIGH  * SIG11L-TAMBDA*SIG110 

STRE 

91 

SIG12  * S IG12L-TAMBDA*SIG12D 

STRE 

92 

SIG21  » 5 !G21L-TAMB0A*SIG21D 

STRE 

93 

SIG22  * SIG22L-TAMBDA*SIG22D 

STRE 

9A 

9 LC-LCH 

STRE 

95 

IFILC-LllOlf 101,102 

STRE 

96 

16  L»L*1 

STRE 

97 

I F ( L- 100 1 100* 100 « 103 

STRE 

98 

103  MR ITE! 6« 10AI 

STRE 

99 

10A  FORMAT! 1H  , AX, 36HSTRE SS  CALCULATION  UNSATISFACTORY 

ATI 

STRE 

100 

12  WAITEI6,105INCYCLE,MtN,K,L,LC 

STRE 

101 

’.05  FORMAT!  1H  ,9X,9HTIME  STEP . 1 A « 5X,  2HM-  , 1 2 ,5X  ,2HN»  , 1 2 , 

5X.2HK* 

,12, 

2STRE 

.02 

1HL»,I3,5X, 3HLC>. I 3) 

STRE 

103 

WRITE (6. 1061  EPSLl(M.N)»EPSL2(MtN) ,GANMAL!M,N> ,EPSUi!M,N), 

STRE 

10  A 

1EPSU2!M,N),G6MMAU!M,NI,DEPS1!K),DEPS2!KI .OGAHMA(K) . 

STRF 

105 

2 SIG1<M,N,KJ),SIG2(M,N,KJ),TAU!M,N,KJ)  .DSIGU, 

STRE 

106 

2DS IG12«0SIG21,DSIG22,SIG11,SIG12,SIG21,SIG22,SIG11L 

,S IG12L 

,SIG21L 

, STRE 

107 

3SIG22L,SIG11D,SIG12D, SI G2 10 , S I G22D , AA  , B, PH  I T 

STRE 

108 

106  FORMAT! 1H  ,9X,7HEPSL1  =E l 5. 8 , 3K , 7HEPSL2  »E 15. 8, 3X , 8HGAMMAL 

-E15.8 

, STRE 

109 

1/1H  » 9X » 7HEPSU1  *E15. 8, 3X.7HEPSU2  «E1 5 . 8,3 X ,8MG AMMAU  *E15. 

8, 

STRE 

110 

1 /IH  • 9Xt  7HDEPS1  »,E15.8,3X, 7HDEPS2  « ,E 15. 8 ,3X .7HDGAMMA- , 

615.8,/ 1STRE 

111 

2H  .9X. 7HSIG1  »,E15.8,3X,7HSIG2  » ,E l 5. 8 ,3 X.7HT AU 

* , E 15 . 

0,/lH  , 

9STRE 

112 

3X, 7HDSIG11«,E15.8,3X,7HDSIG12*,E15.8,3X,7H0SIG21»,E15.8,3X 

, 7MDS IG2STRE 

113 

A2a »E 15.8» / 1H  ,9X,7HSIG11  *,E 1 5. 8 , OX, 7HSIG12  «,E15.8 

•3X.7HSIG21  *, 

ESTRE 

11A 

515.8, 3X.7HSIG22  -,E15.B,/1H  , 9X , 7HSI G l 1L- ,C15 . 8 , 3X, 

7HS 1G12L»,E15. 

8STRE 

115 

6,  3X,  7HS  IG21L*.»E  15.8, 3X,7HSIG22L»*E15.  8,/lH  ,9X,7HSIG110»,  E15.8,  3X 

.SIRE 

116 

77HSIG12D*,E15.8,3X,7HSIG21D=,E15. 8 , 3 X , 7HSI G220* , E l 5 

.8,/lH 

, 9X , 7HAASTR  E 

11/ 

8 “, E 15. 8, 3X, 7K8  * ,E 1 5 . 3 , 3 X , 7HPH I T *,E15.8) 

STRE 

118 

NC  30P ! NN30 I *NC YCL  E 

STRE 

119 

CALL  POATA  12) 

STRE 

120 
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CAU  AO  AT  A (3) 

STRE 

121 

CALL  PDATA  (4) 

STRE 

122 

CALL  EXIT 

STRE 

123 

102 

SS11-SSI1»SIG1!L*MT<  J> 

STRE 

124 

SS  12"S$12+SIG12*MT( J) 

STRE 

125 

SS21»SS21*SIG21*NT( J> 

STRE 

126 

SS22-SS22*S1G22*MT! Jl 

STRE 

127 

SIGUN.N,KJ»*GRU*SIG1UGR124SIG12 

STRE 

120 

SIG2I H*N, KJ )*GR22*SIG22*GR12*SIG2 1 

STRE 

129 

TAU  <N,N,KJ>«GA12*SIG22*GAll*SIG21 

STRE 

130 

603 

CONTINUE 

STRE 

131 

IFCN  .EQ.  i .OR.  N .EQ.  MU  SRG-O.  S^RG 

STRE 

132 

1F(N  .EQ.  1 .OR.  N .EQ.  N1 » SRG-O. 5*SRG 

STRE 

133 

STREN-STREN«< ( SSI USS22  »**2- ( 1 .♦FNUI*2. 

*(SS11*SS22-SS12*&S21)>*SRGSTRE 

1 3*i 

SSlHN<K)«GRil*SSU*GR12*SS12 

STRE 

135 

SS2*M<KI*GR22*$S22+SR12*SS21 

STRE 

136 

STNM(K)«G*12*SS22*GRli*SS21 

STRE 

137 

LNATJM.NtK)  •.  LMNK 

STRE 

130 

RETURN 

STRE 

139 

ENO 

STRE 

140 

SS1MNI 1) 

SS2MNII) 

STUN ( 1 ) 

SS1MNI l)*ZETA(l) 


SUBROUTINE  RESULT (MD, NO  I 
COMMON  (USE  MAIN) 

THE  CALCULATION  OF 
N=MD 
N-NO 

TB=TA*SRA 
SUMAU 
SUMA22 
SUMAU 
SUMB1I 

SUMB22  = SS2MNI 1)*ZETA( 1) 
STMN(  1 >*ZETA( I ) 
SS1MN(1)*ZETASQ(1) 
SS2MNI 1)*ZETASQ( 1) 
STMN( 1 ) * Z E T A SO ( 1 ) 
.EQ.  I )GOTO  5 
2.LAYCR 
- SUMAU 
= SUMA22 
= SUMAU 

* SUMBli 

* SUMB22 
= SUMB12 

* SUMCll 
« SUMC22 

* SUMC12 


THE  STRESS  ANO  MOMENT  RESULTANTS  FOLLOW 


SSIMN(K) 

SS2MNIK) 

STMN(K) 

SS1MN(K)*2ETA(K) 
SS2MN(K)*ZETA(K) 
STMN(K)*ZETA(K) 
SSIMNIK)*ZE TASQIK) 
SS2MN(K)*ZETASQ(K) 
STMNIKUZETASQIK) 


SUMB12  = 

SUMCll  = 

SUMC22  = 

SUMC12  - 
IFILAYER 

00  A K’ 

SUMAU 
SUMA22 
SUMAU 
SUMBII 
SUMB22 
SUMB12 
SUMCll 
SUMC22 

A SUMC12 
5 CONTINUE 

Q 11-SUM  AU'BT«SUMBU 
Q22-SUM A22-BT*SUMB22 
Q 12-SUM A U-BT*SUMB12 

F11»SUMBU-IBT*BM11  )*  SUMC  11-8M12*SUMC12 
F22-SUMB22-I BT*BM22 )• SUMC22~BM21*SUMC12 
FU-SUMBU-i.S*BT*SUMCl2-0,5*(BM21*SUMCll*BM12*SUMC22> 

1 F ( I BCE  A .NE.  3 ) GOT  0 1 
I F ( N .NE.  1IG0T0  1 
F22-0.0 

1 1 F ( I BCE  2 
I F ( N .NE. 

F22-0.0 

2 IFIIBCE3 
I F (M  .NE. 

FI  1-0.0 

3 CSM1-CSU1*F  11>CS122*F22+2.0*CS1 12*F12 
CSM2-CS2U*F  1 1+CS222*F22  + 2.0*C  S212*F12 
FNTll-QU*Yl 1*Q 12*Y21 *C  SM 1 * SN 1 ( M * N ) 

FNT12-01 1*Y12*Q12*Y22*CSM1*SN2 (M»NI 
FNT13-QU*Y13*Q12*Y23*CSM1*SN3(M,NI 
FNT21=Q12*Y11+Q22*Y21*CSM2*SN1  (M  * N) 

FNT22-Q 12* Y 12*022* Y22*CSM2*SN2 I M.N) 

FNT23-Q 12* Y1 3*022* Y23*CSM2*SN3 (M*N) 


.NE.  3 )G0T0 
. NNJGOTO  2 

.NE.  3 )GOTO 
MMIGOTO  3 


FM 111 M»N ) 
FM22(M,N) 
FM12(M,N) 
FNUIM.N) 
FN21IM.N) 
FN13IM.N) 
FNUIM.N) 
FN22I M,N ) 
FN23IM.N) 
RETURN 


TB*F11 

TB*F 22 

T8*F12 

TB*FNTU 

TB*FNT21 

TB*FNT1 3 

TB*FNT12 

TB*FNT22 

TB*FNT23 


**** 

1 

RESU 

2 

RESU 

3 

RESU 

A 

RESU 

5 

RESU 

6 

RESU 

7 

RESU 

8 

RESU 

9 

RESIU 

10 

RESU 

11 

RESU 

12 

RESU 

13 

RESU 

1A 

RESU 

IS 

RESU 

16 

RESU 

17 

RESU 

18 

RESU 

19 

RESU 

20 

RESU 

21 

RESU 

22 

RESU 

23 

RESU 

2A 

RESU 

25 

RESU 

26 

RESU 

27 

RESU 

28 

RESU 

29 

RESU 

30 

RESU 

31 

RESU 

32 

RESU 

33 

RESU 

3A 

RESU 

35 

RESU 

36 

RESU 

37 

RESU 

38 

RESU 

39 

RESU 

AO 

RESU 

Al 

RESU 

A2 

RESU 

A3 

RESU 

AA 

RESU 

A5 

RESU 

A6 

RESU 

A7 

RESU 

A8 

RESU 

A9 

RESU 

50 

RESU 

51 

RESU 

52 

RESU 

53 

RESU 

5A 

RESU 

55 

RESU 

56 

RESU 

5? 

RESU 

58 

RESU 

59 

RESU 

60 

i 8 


SUBROUTINE  MOTION 
COMMON! USE  MAIN  I 

VF  1*0 .0 
VF2»0.0 
VF  3*0 .0 

I F (LOAD  I 10.30*10 
10  ENS-0.0 
CALL  PWORK 


**** 

MOT  I 
MOT  I 
MOT  I 
MOT  I 
MOT  I 
MOM 
MOT  I 
MOT  I 
MOT  I 
MOT  I 
MOTI 
MOT  I 
MOTI 


30  00  130  M*2,MS 
DO  130  N*2»N$ 

VM1«RD11*(FM11(M+1,N)«SN1(M>1,N)-2.0*FM11(M,N)*SNI(M,NI 

1 ♦FM1HM-1,N»*SN1(M-1,N»M  TRD  * IFM12 (M*l  ,N»1)  *SNl 

2 IM+l,N4l)-FM12(M*l,N-l)*SNl (M* 1 ,N-1 1 -FM12 ( M-l ,N4ll *SNl ( M-l, N+1M0T I 

3 1 ♦FM12(M-l»N-ll*SNl!M-l»N-ll 1 ♦RD22* ( FM22 1 M,  M»1 I *SN1 (Mf N*1 I MOTI 

A -2.0*FM22(M,N)*SNl(M,N)»FM22(M,Nl)*SNl(M,N-in  MOTI 

VM2-RDU*!  FMU  (M»1,N)*SN?'  *♦  1 .N» -2.0*FM11  ( M.Nl *SN2 ( M,N) ♦FMl  1 IM- 1. NMO’/  I 

1 )*SN2(M-1,NI  )♦  TRD  FM120Hl,N*l>*SN2IM»f  , N4 1 1 -FM12 ( M+1. N-1M0T I 

2 )*SN2(M*l,N-l»-FM12,v  ,N+1 >*SN2 ( M-l ,N*1 1 +FM121 M-l ,N-1 ) *SN2( MMOT I 

3 - l.N- 1 1 1 ♦R022* (FM22 ( M ,N* 1 ) * SN2 (M»N* 1 1 -2«0 *FM22 ( M» N 1 *SN2 ( M.N  J*FMOT I 

4 M22(M,N-ll*SN2(MtN-in  MOTI 

VM3*R01l*(FMll(M'»l»N)4SN3(M4l,Nl-2,0*FNH(M.Nl*SN3(M*N>+FMll(M-l,  NMOT  I 

1 )*SN3(M-1,N)  >♦  TRO  * < F Ml  2 t M* 1 , N* 1 1 *SN3 ( M4 1 ,N4 1 ) -FM 1 2 ( M«1 , N-MOT I 

2 l )*SN3(M*l,N- l)-FM12(M-l,N4l)  •SN3(M-l,N+l)«-FM12(N-l,N-l)*SN3  MOTI 

3 (M-l,N-in+RD22*(FM22(M,N+l)*SN3IM,N*l >-2.0*FM22(MtN)*SN3(M,NI  MOTI 

A ♦FM22(N,N-1)*SN3( M.N-1 1 1 MOTI 

VNl*RT0l4(FNll(M4l,Nl-FNll(M-l,Nl>  ♦RTD2*  1 FN21  (M,N«-1)-FN21(M,N-1)1  MOTI 
VN2«RT0l*(FN12(M4l,N)-FN12(M -1 .Nil »RTD2*(FN22  ( M,N* 1 1 -FN22 ( M, N-l ) I MOTI 
VN3*RTDl*(FN13(M*l,N)-FN13(M-l,Nn*RTD2MFN23(M,N*l)-FN23(M,N-li)  MOTI 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


I F (LOAD  1 40,50,40 

MOTI 

31 

40 

VFl*-SNl(M,Nl*P(M,N) 

MOTI 

32 

VF2*-SN2(M,N)*P(M,N) 

MOTI 

33 

VF3*-SN3(M,N)*P(M,N1 

MOTI 

34 

MOTI 

35 

50 

U1R*U1(M,N 1 

MOTI 

36 

U2R*U2( M,N ) 

MOTI 

37 

U3R*U  3 ( M,  N 1 

MOTI 

38 

U1S*U1R*<  VMUVN1*VF1!*TENP(M,N) 

MOTI 

39 

U2S»U2R*(VM2*VN2*VF2>  *TEMP( M ,N> 

MOTI 

40 

U35*U  3R ♦( VM3*VN3* VF  3 1 •TEMPIM.N) 

MOTI 

41 

IF! TOAMP  .EO.  O.OIGOTO  115 

MOTI 

42 

VISCOUS  DAMPING  Cl 

MOTI 

43 

U1S»UIS-(U1S*UIR)*C1 

MOTI 

44 

U2S*U2S-( U2S+U2R 1 *C 1 

MOTI 

45 

U3S*U3S-( U3S+U3R 1 *C 1 

MOTI 

46 

115 

U1(M,N»*UIS 

MOTI 

47 

U2(M,N )*U2S 

MOTI 

48 

U3 ( M, N 1 *U3S 

MOTI 

49 

130 

CONTINUE 

MOTI 

50 

CALL*  BOUNOU 

MOTI 

51 

CALL  K INET 

MOi  I 

52 

IF(LOAD)  65,75,65 

MOTI 

53 

65 

CALL  PWORK 

MOTI 

54 

EN*0.54CA*(ENS+ENR) 

MOTI 

55 

ENR*ENS 

MOTI 

56 

IF( IBCE2  .NE.  21G0T0  74 

MOT! 

57 

EN=2.0*EN 

MOTI 

58 

74 

TNRG*  TNRG  + EN 

MOTI 

59 

75 

PL  AST *TNRG-C1NET-STREN- TOAMP 

MOTI 

60 
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C HOT  I 61 

IFtNCYCLE  .NE.  NCVCH(NNN))  GOTO  160  HOT!  62 

NRIT6I6,99991)  NCYCLB*TIHE,CINET,STREN, PLAST, TNRC  HOT  I 63 

NNN»NNN»l  HOT  I 64 

140  RETURN  HOT!  65 

C HOT  I 66 

99991  F0MATI//10H  T1HE  STEP,  I 5,3X,5HTI  ME-.E16.8 ,3X.8HKINET  IC-,  E15t8,  3X.H0T  l 67 

16HELASTICa«E15>8«  3X, 8HPLA STIC" »E1 5*8/1 4M  TOTAL  ENERG  *,E15.8)  HOTI  63 

ENO  HOTI  69 
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SUBROUTINE  MR  TAPE  IRE  VI  **** 

C MRITE  ♦ READ  CONTINUATION  RUN  TAPE  (KEY-1,  MRITE  KEY«2,  READ)  WRTA 

COMMON (USE  MAIN)  WRTA 

GOTOI 10, 20). KEY  WRTA 

10  MRITEm  NCYCLE , TIME*CINES»CINEP»  TNRG  • T0AMP»D1  >02  *03 , ENR  WRTA 

WRITE! I ) ((Ul(M,N),U2!H,N),U3(N,N>»Yl(M,N),Y2(M,N)vY3!N,N),  WRTA 

lfcP$LHM«N)»EPSL2(M»*i) ,GAMMAL(M,N) »EPSU1 I M,N) , EPSU21 MkN) * WRTA 

2GAMKAU<N,N),P(M,NI,N-l,NNI ,M-l,MMi  WRTA 

WRITE!!)  ! (ISIG1(M,N,K)  , S1G2(M,N,K)  ,TAU!M,N,K> , WRTA 

llC*  l.KJMAti ) ,N-l,NN  ) t M«1,MM)  WRTA 

MP.ITEU)  ( 1 SNlTMf.N:  .SN2IM.N)  ,SN3<M,N)  ,TEMP(M,N)  , N«1  , NN)  , M*>  1 , MH ) WRTA 

WRITE!  1)  (GU1!N>,SI22(N),GU2<N)  ,ASA(N)  ,8SA!N)  ,CSA(N)  , ASB<  N)  « WRTA 
18SBIN) ,CS8IN),N*1,NSTRN)  WRTA 

WRITEI6.100)  NCYCLE  ,T IME  WRTA 

RtTUFN  WRTA 

C WRTA 

20  REWIND  1 WRTA 

25  READ  (1)  NCYCLE, TIME, C t NE S,C I NEP , TNRG , TDAMP ,01 , 02 ,03  * ENR  WRTA 

READ  11)  <IUl(M,N),U2C«,N),U3tM,N),Yl(M,N),Y2(M,N),Y3(Ni,N),  WRTA 

1EPSL1(M,N),EP$L2(M,N)  ,GAMMAUM,N)  ,EPSU1  ( M,N ) ,EPSU2  (MfcN)  , WRTA 

2GANMAU(N,N),P|N,NI,N*1,NN),M«1,MN)  WRTA 

READ  (1)  (I(SIG1IM,N,*),SIG2(M,N,K),TAU!H,N,K),  WRTA 

IX* i,K UMAX ) ,N*1 ,NN ) , M* l,MM ) WRTA 

READ  ( IX (SN1(M,N),SN2(M>N) ,SN3(M,N) , TEKA! M,N) , N* 1 ,NN) ,M* 1 , MM)  WRTA 
READ  (1)  (Gli.l(N),GI22(N)  ,GI  12  !v!)  , ASA  IN)  ,GSA(N)  ,C SAIN), AS  BIN),  WRTA 
1BSBIN),£SB(N>,N*1,N5TRN)  WRTA 

IFINCYCLE.NE.NCQNTJGOTO  25  WRTA 

WR  I TE I 6,200)  NCYCLE, TIME  WRTA 

RETURN  WRTA 

C WRTA 

luO  FORMAT  ( //2AH  TAPE  1 WRITTEN,  NCYCLe*lA,7H  UNE-E15.8)  WRTA 

200  FORMAT! //39H1 1 NFORMAT I ON  REAO  FROM  TAPE  i FOR  CVCLEIA,7H  TINE-E15WRTA 
1.8)  WRTA 

END  WRTA 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 
11 
12 
13 
l A 

15 

16 

17 

18 

19 

20 
21 
22 
23 
?A 

25 

26 
>7 
28 

29 

30 

31 
52 
33 
3A 
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SUBROUTINE  STRAIN 


C 

C 

C 


c 


c 

c 


PRINT  STRAINS  ON  INNER  OR  OUTER  SURFACE 

DIMENSION  E8SANGI 61 tEPSANI(A) 

COMMON  (USE  MAIN) 

DATA  81/3.141592653589793/ 

IFINCYCLE* .CT.  OICOTO  25 

. INITIAL  ENTRY 

00  20  l-l.NSTRN 

AU-OM2m*<0N2(l)*AUl(I  »*0Nim*AU2m 
l ♦ONK  1 >*(DN2f  I )»AUV  I I»DN1II)*AU4II) 
A12-0M2I I)*(0N2(I)*A121(I MONA ( 1 ) *AI22 ( I ) 
1 ♦0Mltn*(0N2m*A123<n*0Nl(I>*Al24(II 

A22-DM2I I >*(DN2< I )*A221 « I I40N1I1) *A222( I ) 
i ♦OMim*ioN2m*A223m*oNim«A224m 
Bll*DM2(t  }*(DN2m*BUim*DNl(I>*Bll2(t> 
I +0M1I1  )*(DN2m*Bll3(t)«DNl  tit  *8114(1) 
812-0N2I t )*(DN2( I 1*81211 I I+ONltl 1*8122(1 ) 
1 ♦OMK  I l*ION2I  I l*Bl23U)«0Nim  *892411) 
822-0821  I l*(0N2(I  t*B22im*0Nl(1 1*8222(1 1 
1 *0811 1 l*(DN2( 1 1*8223(1 I*DN1(1 ) *8224(1 ) 

IFINETAGI I I.EQ.llGOTO  10 
Gil  * All“2«0*H*811 
612  * A12~2.0*H*B1? 

622  * A22-2.0*H*B22 
GOTO  IS 

10  Oil  » A11*2.0*H*B11 
612  - A12«2.0*H*B12 
G22  * A22*2.0*H*®22 
15  Gtlim-l.O/Gll 
GI22I  D-1.0/G22 
GR-SORT (GI 11( 1 >*G122( I l ) 

0ELTA«G12*CR 
QI12( 11-2. 0*G* 
SROEL-1.0/SQRT(1.0-DELTA**2I 
ANGEL -ANGLE! 11*81/180.0 
SA-SR0EL*S1N( ANGEL) 

SB-COSI ANGEL l-OEL  TA*SA 
ASAI I )«2.0*SA**2 
BSA( I l-2«0*S8**2 
CSA(1)-2.0*SA*SB 
ANGEL - ANGL8C 11*81/180.0 
SA»$ftm»SSN(  ANGEL) 

SB-COSI ANGEL)- DEL TA*SA 
ASB( ( )-2.0*Si**2 
8SBI I )-2.»0*SB**2 
CSB(1)»2.0«SA*SB 
20  CONTINUE 
GOTO  71 

25  LINK-1 

CHECK  FOR  SURFACE  STRAIN  PRINT 
IFINCYCLE-NPRINT)  4G*.30t30 
30  NPRINT-NPRINT+NDELP 
LINK-2 

40  00  46  I-l.NSTRN 
UMiim 
ji-Niim 
I2-NI2I I i 


•*•• 

1 

STRA 

2 

STRA 

3 

STRA 

4 

STRA 

5 

STRA 

6 

STRA 

7 

STRA 

8 

-STRA 

9 

STRA 

10 

STRA 

U 

STRA 

12 

S’  R A 

13 

STRA 

14 

STRA 

15 

STRA 

16 

STRA 

17 

STRA 

13 

STRA 

19 

STRA 

20 

STRA 

21 

STRA 

22 

STRA 

23 

STRA 

24 

STRA 

25 

STRA 

26 

STRA 

27 

STRA 

28 

STRA 

29 

STRA 

30 

STRA 

31 

STRA 

32 

STRA 

33 

STRA 

34 

STRA 

35 

STRA 

36 

STRA 

37 

STRA 

38 

STRA 

39 

STRA 

40 

STRA 

41 

STRA 

42 

STRA 

43 

STRA 

44 

STRA 

45 

STRA 

46 

STRA 

47 

STRA 

48 

STRA 

49 

STRA 

50 

■STRA 

51 

STRA 

52 

STRA 

53 

STRA 

54 

STRA 

55 

STRA 

56 

STRA 

57 

STRA 

58 

STRA 

5V 

STRA 

60 
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c 


c 


J2-N12II)  STRA 

IF(NETAGtl)  .60.  1)  GOTO  44  STRA 

EPSRl  *( 0M2(  l )*  t DN2  < I I*EPSU1  ( 1 1 1 Jl  I ♦ONI  (I)*EPSUI(I1.J2))  STRA 

l ♦DM1( 1 )*( DN2 ( I)*EPSU1(I2«J1) *0N1 ( I ) *EPSU1 (12, J2))( *611111)  STRA 

EPSR2  ■( DM2( I )* (DN2 ( I )*EP$U2( 1 1 • Jl • ♦DN1 t 1 ) *EPSU2 ( II, J2) ) STRA 

1 ♦ORU t (*( 0N2 t 1 )*EPSU2( 12 , Jl (♦ONI 1 t ) *EPSU2 ( 12, J2 I ) 1*41221 1 ) STRA 

GAMMAR  ■ ( DM2 ( 1 1 • ( DN2 (II *GAMMAU (11 , J 1) *DN 1(1 ) 4GAMMAU ( 1 1, J2 1 1 STRA 

1 ♦OM  1(I)*(0N2(1I  *GAMMAU(  1 2, Jl )*ONl  (II  *GAMMAU( 12  k J2I  ) )*G(  12  ( I (STRA 

GOTO  AS  STRA 

AA  EPSR1  ■ ( 0M2( 1 1 A (0N2 (I)*EPSL1(I1,J1) ♦ONI (tl*EPSLl<ll,J2()  STRA 

1 *DN ) ( 1 )*( 0N2 (l)*EPSLl(t2,J!) ♦ONI (I  I *EP$L1 ( 12« J2 1 ) 1*6111(1)  STRA 
EP3R2  ■ < DM2( 1 )* (DN2 (1 )AEPSL2(1 1 , Jl ) ♦DNl ( I (*EPSL2 ( 1 1 , J2 ) ) STRA 

1 *0H1( l>*<0N2(i)*EPSL2(t2,Jld0Ni(I)*EPSL2(l2,J2)  t )*GI22II)  STRA 

GAMMAR  ■ (DM2( 1 1 *(  0N2(  I )*GAMMAL( II,  Jl  (ONI (II *GAMMAL( t 1 • J2 ) I STRA 

1 ♦OH  1 ( 11*1 ON 2(1) WGANMALI 1 2, Jl (♦ONI 1 1 ) *GAMMAL ( 1 2»  J2 1 ) )*Gtl2( I (STRA 

AS  6PSS1( 1 (oSORTI  1.0>2.0*EPSR1I-1.0  STRA 

EPSS2( l (“SORT! 1.0*2.0*EPSR2)-1.0  STRA 

EPSANGI 1 )»SQRT( l.CHBSAU ) *EPSR1*A3A( I ) *EPSR2>CSA( I )*GAMMAR)-1.0  STRA 
EPSANB( 1 1 SORT ( 1 .0*8 SB ( I ) •EPSAWASBI 1 1 *EPSR2*CSB( I )*GAHMAR)-1.0  STRA 

A6  CONTINUE  STRA 

CONPONENTS  Of  VECTOR  DISPLACEMENT  STRA 

0k*01*(QM2*(QN2*Ul(MQl»NQl)4QNl*Ul(MQl'NQ2l)  STRA 

1 ♦QM1*<QN2*U1(HQ2,NQ1UQN:«U1(NQ2,NQ2)II  STRA 

02«02*( QM2*(QN2*U2( HQ l.NQl (♦QN1*U2(HQ1 ,NQ2 ) ) STRA 

1 ♦QM1*(QN2*U2(NQ2»NQI)*QN1*U2(NQ2»NQ2) ) ) STRA 

03>03*(QM2*(QN2*U3(MQ1,NQI|aQN1*U3(MQ1,NQ2(I  STRA 

1 ♦QM1*(QN2*U3(NQ2,NQ1UQN1*U3(MQ2,N02II)  S VRA 

GOTO  ( 7 It  SO  I *L INK  STRA 

SO  HR  ITE ( 6.60  ) NCYCLEt  TI HE  STRA 

00  70  I-l.NSTRN  STRA 

ALFN*5M1NNER  STRA 

1F(NETAG(  D.EQ.DGOTO  67  STRA 

ALFN*5H0UTER  STRA 

67  WRITE(6,65)  CTAGLI  l > . E TAG2 ( l > ,PMU  ) ,PN(  1 1 , ALF N, EPSS 1 1 1 > , EPSS2(  I ) , STRA 
1 ANGLE! I ),EPSANG( 1 ) , ANGLB( I ) >EPSAN8( I ) STRA 

70  CONTINUE  STRA 

71  RETURN  STRA 

STRA 

60  FORMAT ( // 1QH  TIME  STEP. 1 5 1 3X.5MTI HE- ,E16.B//1 AX, 1 SHSURFACE  STRA1NSSTRA 
1. 37X. 19HSTRA1N  GAGE  REA0ING//2X.4HETAI «4X,4HETA2,6X, 1HM.TX, INN, SX.STRA 
24HFACE, 8X, 7HANGLE  0 , 1 OX , 8HANGLE  90 »6X ,5H ANGLE »18X ,5H ANGLE/ ) STRA 

65  FORMAT ( 1H  .FT. 3, 1X.F7 .3, 2X.F7. 3 , 1 X,FT. 3 ,2X , AS ,1X , 2 (2X, E15 .8 ) t STRA 

12( 2X. F6.2,?X,E15.8) ) STRA 

ENO  STRA 


61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

77 

78 

79 
8C 
81 
82 

83 

84 

85 

86 
87 
C8 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
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SUBROUTINE  60UNDU 

COMPUTATION  OE  Ul.U2.U3  AT  THE  BOUNOABV 
COMMON  (USE  MAIN) 

IPI 16CE4  .EQ.  3IG0T0  121 
00  120  M-2.MB1 

DUSN*  (UlIM,  2 1-0.2S4UHM.  3)  I4SNKM.1I 

1 ♦(U2(M,2)-0.254U2(M»3I >4SN2(M,1I 

2 ♦(U3(M,2>-0»2S4U3(H.31t 4SN3IM.il 
UltM*2l"Ul(N».2l“SNllN»l  )*DUSN 
U2(M, 2I-U2IM.2)-SN2(N.1)4QUSN 

120  U3(Mt2>*U3tM»2t-SN3(M.l)40USN 

121  IFKBCE2  .NE.  11C0T0  123 
DO  122  M-2.MB1 

DUSN«(U1<N,NS1-0.2S*U1<N,NR) 1*SN1 (H,NN) 

1 ♦(U2(H,NS)-0.2S4U2(H.NRI)*SN2 (M.NNI 

2 HU3(MtNSI-0.2S*U3(M*JMll*SN3(M,NNI 
Ul(M.NSt*Ul<M.NS)-SNKN.NN>4DUSN 
U2IM.NS I *U 2t  M. NS I-SN2 (M.NN 1 4DUSN 

122  U3(M,NS>*U3(K.NS)-SN3<M.NN)40USN 

123  IFI1BCE3  .NT.  11C0T0  SO 
00  124  N"N6l.MB2 

DUSN*(U1(MS.N>-0.2S4U1(MR,N» )4SN1(MN»N) 

1 +(U2(MS«N)-0.254U2(MR.N> )*SN2 (MM*N) 

2 ♦(U3(MS,N>-0. 25*U3(MA,N1 )*SN3 (MM,NI 
U1(MS»NI-U1(MS.N)-SN1(NM»N)4DUSN 
U2(MS.N)*U2(MS.N)-SN2(MM,N)40USN 

124  U3IMS.N )*U3IM$.NI-SN3 (MM.N)*DUSN 
IF( IBCE4  .NE.  1 (GOTO  125 
DUSN1*(U1(MS.2 1-0.2 5* Ult MS *3) )*SN1 (MS tl) 

1 ♦CU2( MSr2l-0.25*U2(MSt 3 1 I *SN2 INS. 1 1 

2 ♦(U3(NS»21-0.25*U3(MS»3( >*SN3(NS,1) 

DUSN2*( U1 (MS. 2 I-0.25*U1 (MR.2 1 l*SNl (MM|2 1 

1 ♦ I U2  ( MS  *2 1 ~0  • 2 5*  U2  ( MR  . 2 1 1 4 SN2  ( MM  . 2 1 

2 ♦(U3(MS.2)-0.254U3(MR.2) I *SN3 (MM. 21 
Ul  IMS,  2 1-U1INS,  21-0.5*1  SN1(  NS.  1140USNKSN1 I MN.2 1 *DUSN2 I 
U2IMS»2I*U2INS»2)-0.54|  SN2  ( MS»  1 ) *0USN1+SN2  IMM.2 1 *DUSN2  1 
U3IMS, 2 l*U3l MS. 21-0.5*( SN3IMS, 1 1 *DUSNl*SN3 ( MM,2 1 *0USN2 ) 

125  !F(  IBCE2  .NE.  DGOTO  SO 
0USN2-<Ul(MSrNS)-0.25*Ul(MR,NS) >*SN1(MM,NSI 

1 ♦IU2(HS,NS1-0.25*U2(HR,NS1 )*SN2(MM,NS) 

2 ♦ !U3INS.NSI-0.25*U3«Mk,NSn*SN3(NN,NSl 
DUSNl*IUllMS»-NS)-0. 25*U1INS,NR)  )*SN1 I MS.NNI 

1 *IU2I MS.NS1-0.  254112  (MS» NR  1 1*SN2  (NS.NNI 

2 4(U3(MSt NS)~0. 25*U3(MS»NR) I *5N3( MS»NN> 
U1(MS,NS>*UI(MS.NS>-0.56(SN1(M$,NN)*0USN14SN1INM,NS;«DUSN2) 
U2IMS,NS>-U2IMS,NS)-C.5*ISN2IMS,NN>*DU$NKSN2<MM,NS>*DUSN2I 
U3IMS,NS)-U3(N$,NS»-0.5*(SN3|MS.NN>*DUSNKSN3IMM,NS)4DUSN21 

C SET  SYMMETRY  BOUNDARY  CONDITIONS  FOR  E0GE1 .EDGE2.E0GE3 

SO  IF( 1BCE2  .NE.  2IG0T0  30 
DO  2S  M-2.M1 
U1(M,NN)*U1<M.NR) 

U2(M»NNI*-U2(M»NRI 
U3(M,NN)-U3(M,NR1 
U2 (MENS  1*0.0 
25  CONTINUE 
30  DO  5 N-l.NN 
UK2ENI*  0. 

UK  UNI— U1(3,N) 

U2(  1|NI*  U2( 3»N I 
U3I1.N1*  U3( 3.N  1 


44*4 

1 

BOUN 

2 

BOON 

3 

BOUN 

4 

BOUN 

5 

BOUN 

6 

BOUN 

7 

BOUN 

6 

BOUN 

9 

BOUN 

1C 

BOUN 

11 

BOUN 

12 

BOUN 

13 

BOUN 

14 

BOUN 

IS 

BOUN 

16 

BOUN 

IT 

BOUN 

16 

BOUN 

19 

BOUN 

20 

BOUN 

21 

BOUN 

22 

BOUN 

23 

BOUN 

24 

BOUN 

25 

BOUN 

26 

BOUN 

27 

BOUN 

28 

BOUN 

29 

BOUN 

30 

BOUN 

31 

BOUN 

32 

BOUN 

33 

BOUN 

34 

BOUN 

35 

BOUN 

3t 

BOUN 

37 

BOUN 

38 

BOUN 

39 

BOUN 

40 

BOUN 

41 

BOUN 

42 

BOUN 

43 

BOUN 

44 

BOUN 

45 

BOUN 

46 

BOUN 

47 

BOUN 

48 

BOUN 

49 

BOUN 

SO 

BOUN 

51 

BOUN 

52 

BOUN 

53 

BOUN 

54 

BOUN 

55 

BOUN 

56 

BOUN 

57 

BOUN 

58 

BOUN 

59 

BOUN 

60 
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IHIRCE)  .Nl.  2I6CT0  5 
UltNS.NI*  0.0 
Ui INNtN  l*“UHMR»N ) 
U2tM*»,N>.  U2tMR.NI 
U1IMM.NI-  U)l MR oN I 
% CONT I NUt 
RETURN 
ENO 


ROUN  *1 
•OUN  42 
ROUN  41 
ROUN  44 
ROUN  4* 
ROUN  44 
ROUN  47 
ROUN  4> 
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SUBROUTINE  ABINITIM.NI 

common  (use  main) 

00  NO  l-I.NSTAN 

tMN.CQ.MIHIl  .ANO.  IN.EQ.NIlll) 
IF(M.EQ.MI2( I t .ANO.  IN.CQ.NII(I) 
GO  VO  200 

205  IFIN  .CO.  NI2III1G0T0  210 
Al ill  1 1 -All 
A121I  I I-A12 
A221I I I-A22 
•111! 11-611 

■ 1211  II-A12 
■2211 1 1-A22 
GOTO  200 

210  Al  121  I l-A 1 1 
A 1221 II-A12 
A222I II-A22 
■1121 ll-tll 
■1221 1 *»■ 12 
■222(11-622 
GOTO  200 

220  IFIN  .EQ.  NI2I I ) (GOTO  2 25 
AID!  11-All 
A 1 2)1  I I-A12 
A221I  I I-A22 

■ 11)1  M-Bll 
812)1  I 1*612 
■22)1  I 1-622 
GOTO  200 

225  A 1 141  I 1-All 
A124I I1-A12 
A22AI I 1-A22 
BUAIII-811 
61 241 11-612 
82241 I 1-622 
200  CONTINUE 
RETURN 
ENO 
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OUOROUTUtt  SYMTtV 

1 

COMMON  IUSC  MAIN) 

SYNT 

2 

00  10  N>UN1 

STNT 

3 

SNltl.NI>-SMlf  3.N) 

SYNT 

4 

3N2IUNI*  SN2I3.N) 

SYNT 

5 

SN3I1.NI>  VOI3.NI 

SYNT 

6 

FNlltl.N)-  FNlltl.N) 

SYNT 

? 

FM22I3.N) 

SYNT 

8 

MM  121  l,N)>-  FN12I3.NI 

SYNT 

9 

FNlltl.N)-  M11I3.NI 

SYNT 

10 

FN2II l»N)>-FN21t  S»N) 

SYNT 

11 

FNlltl.N)--  FNlltl.N) 

SYNT 

12 

FN  121 l.N)— FN12I3.N) 

SYNT 

13 

FN22I l.N)  ■ FN22I3.NI 

SYNT 

14 

FN23I  1»N)>  FN23I  3.N) 

SYNT 

15 

CONTINUE 

SYNT 

16 

IFII0CE3  .NE.  2IG0T0  30 

SYNT 

IT 

00  20  N>l.Nl 

SYNT 

18 

SN1INM.NI  — SNltNt.N) 

SYNT 

19 

SN2tNN,N)>  SN2IMN.N) 

SYNT 

2C 

SNltNN.N)-  SN3INt.NI 

SYNT 

21 

FNUIHM.N1-  FNUINt.N) 

SYNT 

22 

FM22IMM.M-  FN22INt.NI 

SYNT 

23 

MM  121  NN,N  » — FM 121 NN  ,N  1 

SYNT 

24 

FNlltNM.NI>  FNllINM.N) 

SYNT 

25 

FN21IMN,NI>-FN21tNN,N) 

SYNT 

26 

FN 131  MM,N 1 >-FN 131 NN ,N » 

SYNT 

27 

FN121MN.N  )>-FN12tMN,N) 

SYNT 

28 

FN22IMM.N ) > FN22tMt,N) 

SYNT 

29 

FN23IMN.NI-  FN23INN.N) 

SYNT 

30 

CONTINUE 

SYNT 

31 

IFIIBCE2  .NE.  2IGOTO  SO 

SYNT 

32 

00  40  N-l.MN 

SYNT 

33 

SN  1IN.NN) > SN1 tN.Nt 1 

SYNT 

34 

SN2IN.NN)  — SN2IN.NNI 

SYNT 

35 

&N3IN.NNI-  SN3IN.NN ) 

SYNT 

36 

FN 1 11 H,NN  > ■ FNlltN.Nt ) 

SYNT 

37 

FN  121  N.NN) —FNlltN.Nt  I 

SYNT 

38 

FN22I N.NN 1 * FN22IN, Nt I 

SYNT 

39 

FN 111 M,NN ) « FNlltN.Nt) 

SYNT 

40 

FN21IN.NN  ) —FNlltN.Nt 1 

SYNT 

41 

FN  131  N.NN ) * FNlltN.Nt  I 

SYNT 

42 

FN  121  M.NNI- FN  12  tN.Nt) 

SYNT 

43 

FN22I N.NN ) > FN22IN.NR) 

SYNT 

44 

FN23IN.NNI—  FN23IN.NM 

SYNT 

45 

CONTINUE 

SYNT 

46 

NETUtN 

SYNT 

47 

ENO 

SYNT 

48 
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SUBROUTINE  PWORK 

***• 

l 

COMMON  (USE  MAIN) 

PWOR 

2 

DO  20  M*2»MS 

PWOR 

3 

CM* 1 . 0 

PWOR 

A 

IMM.E0.2  .OR.  ( 1BCE3.E0.2  .AND.  M. EQ. MS ) > CM-O.  5 

PWOR 

5 

00  20  N*2* NS 

PWOR 

6 

CN*1.0 

PWOR 

7 

IF( IBCE2  .EO.  2 .AND.  N .EQ.  NS)CN*0.S 

PWOR 

6 

0W*Ul(N,N)*SNl<M,N>*U2(M»N)*SN2(MtN)AU3(M,NI*SN3<M,N) 

PWOR 

9 

ENS»ENS-CM*CN*DW*P(M,N) 

PWOR 

10 

CONTINUE 

PWOR 

11 

RETURN 

PWOR 

12 

ENC 

PWOR 

13 

} 


[' 


r 

\ 

[ 

i 

y 
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SUBROUTINE  OAMP 

*•** 

1 

COMMON  I USE  MAIN) 

DAMP 

2 

DAMP 

3 

CHECK  FOR  START  OF  DAMPING 

DAMP 

4 

IFINCYCLE  .LT.  MOAMP) RE  TURN 

OAMP 

5 

00  15  M«i,MM 

DAMP 

6 

DO  15  N-l.NN 

OAMP 

7 

PIM.NI-0.0 

OAMP 

8 

15 

CONTINUE 

OAMP 

9 

IFICINES-C INEA )2Q*20*  40 

OAMP 

1C 

20 

T0AMP»T0AMP*CIN£T 

DAMP 

11 

IFICINET4CINEP  .IE.  DFACT*TDAMP)GOTO  50 

OAMP 

12 

00  30  M«1,MM 

OAMP 

13 

00  30  N-l.NN 

OAMP 

14 

U1IM|N)*0.0 

OAMP 

15 

U2(M,N)-0.0 

OAMP 

16 

U3IM.NI-0.0 

DAMP 

17 

30 

CONTINUE 

DAMP 

18 

CINEP-CINET 

OAMP 

19 

CINES1-CINER 

OAMP 

2C 

CINES-0.0 

OAMP 

21 

NCYCLE-NCYCLE41 

DAMP 

22 

TIME«TtM£*OELTAT 

OAMP 

23 

CALL  MOTION 

OAMP 

24 

IFICINES  .LE.  CINESDGOTO  39 

OAMP 

25 

CALL  OESTEP 

OAMP 

26 

39 

CALL  P0ATAI2) 

OAMP 

27 

40 

T0AMP»TDAMP*C2*CINES 

OAMP 

26 

40 

RETURN 

OAMP 

29 

50 

WR1TEI6.100)  NCVCLE 

OAMP 

30 

MAXO-NCYCLE 

OAMP 

31 

NC30PINN30I-NCYCLE 

DAMP 

32 

CALL  POATA  12) 

DAMP 

33 

GOTO  45 

OAMP 

34 

100 

FORMAT! 1HI, 10X.30MRUN  SELt-TERM! MATED  TIME  STEP.I5) 

OAMP 

35 

ENO 

DAMP 

36 

SUBROUTINE  DESTEP 

**•* 

i i 

CHANGE  DEL TAT 

DEsr 

i 

2 1 

COMMON  (USE  MAIN) 

OEST 

3 | 

DELTAT«SQRTIC1NES1/CINES)*DELTAT 

DEST 

A 

OSQOL O-DEL SQ 

OEST 

t 

5 i 

C10L0-C1 

DEST 

6 5 

OELSQaOEL  TAT**2 

DEST 

7 } 

C2-2.0»0ELTAT*DAMPF/GAMZ 

OEST 

8 

C1-C2/U.O+C2) 

OEST 

9 

OELR*OELSQ/OSQOLO 

OEST 

10 

DELS*OELRP| l.O-C 1 )/( l.O-ClOLO) 

OEST 

11 

C 1NES-C INES*DELS**2/OELR 

OEST 

12 

CINET-O.S*(CINES*CINER> 

OEST 

13 

PL AST-TNRG-C INET-STREN-TDAMP 

OEST 

1* 

DO  10  M-2.MI 

OEST 

15 

00  10  N-UN1 

OEST 

16 

TEMPI M»NI»DELR* TEMP <MtN) 

OEST 

17 

UIIM»N)-DELS*U1IM.N) 

DEST 

18 

UZ*M.*)»DELS*U2(M,N) 

OEST 

19 

U3IM.N)-DELS*U3(M.N) 

OEST 

20 

CONTINUE 

OEST 

21 

RETURN 

OEST 

22 

END 

OEST 

23 

201 


non 


c 


c 
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SUBROUTINE  POATAILINK  ) 

DIMENSION  OAT I 20) 

COMMON  (USE  MAIN) 

POATA  SELECTS  ANO  WRITES  DATA  ON  TAPEINPLOT  * FOR  THE  REPSIt 
PLOTTING  PROGRAM 


GOTO  I 10» AO, 50, 60), LINK 
10  NN  30“ 1 

ll-2*NSTAN«8 

IF  INCYCLE  .EQ.  0)G0TO  15 
12  CALL  SRIPFILE  INPLOT, 1) 
REAOINPLOT)  IFLAG 
IFI IFLAG  .EQ.  99999IG0T0 
REAOINPLOT)  IFLAG 
IF! IFLAG  .NE.  NCONT* 1 IGOTO 
1 A CALL  BACKFILE  (NPLOT, 1 ) 
GOTO  SO 

15  WRITEINPLOT) 

WR  ITE (NPLOT) 

WRITEINPLOT) 

1N-I,N1) 


14 


12 


I BCE  3, E T AD 1,ETA02,QM,QN« NSTRN 

I ETAGl 1 1 ) ,ETAG2( 1 1 ,PMIl ) , PN< I ) ,NETAG( I ) « I- 1, NSTRN) 

NCYCLE,TINE,Nl,Nl,HYllNtN),Y2IN,N),Y3IN.N)fH-HNl>. 


00  25  1-1,11 
DAT! 1 1-0.0 
25  CONTINUE 

IF(LOAD)  30,30,35 
30  DAT! 51-TNRG 
DATI6I-TNRG 
DAT! 7 l-TNRC 
OAT(B)-TNRG 
35  I FLAG-1 

WRITEINPLOT)  IFLAG 

WRITEINPLOT)  NCYCLE , I OATI I ) , I -1 , I | ) 
GOTO  100 


40  OATI 1 l-TIME 
DAT! 2 )-0l 
OATI 31-02 
0iiri4)«03 
OAT  I 5 l-CINE  i 
DAT! 6 )-STREN»C I NET 
OATI 7)-TNRG 
OATI  B I -OAT 1 6) ♦TDAMP 
4-9 

DO  45  1-1, NSTRN 
0ATIJI-EPSS1II) 

OATI J>1)-EPS$2I  I ) 
J-4»2 


45  CONTINUE 
IFLAG- l 

WRITEINPLOT)  IFLAG 
WRITEINPLOT)  NCVCLE.IOATII ), 1-1,111 
CHECK  FOR  30  PLOT 

IFINCYCLE  .NE.  NC30PINN30) IGOTO  100 

NN30-NN3041 

IFLAG-2 

WRITEINPLOT)  IFLAG 

»N1,N1*  II  Y1IN,NI  »Y2  IM,N)  ,Y3(M,N),M-1LM1), 

IN- 1,N1 ) 

GOTO  100 


• ••* 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 

POAT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


i 


\ 

\ 


! 

i 


i 


i 

i 


s 


\ 

i 

i 

I 
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SU SHOUT  INC  PRESS 
• COMMON  (USE  MAIN) 

COMMON  /IPS/  RSOI 23,34) 

DO  10  M*2,MS 
00  10  N-2,NS 

T I *( SQRTI R$Q( N,N ) >2 25.0) -19.0) /I 44000*0 
P(M,N)«0.0 

IF ( TINE  .IT.  TDCOTO  10 

in  ,’,”0473T*5*e*P,"l,000*0*<r«wE“Ti»>/tRSQIM,N)4223.0) 

lu  CONTINUE 

RETURN 

ENO 


• l 
PRES  2 
PRES  3 
PRES  4 
PRES  5 
PRES  6 
PRES  7 
PRES  S 
PRES  9 
PRES  10 
PRES  11 
PRES  12 
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SUBROUTINE  INGEON 

• ••• 

1 

c 

FLAT  PLATE 

INGE 

2 

CONNON  (USE  MAIN! 

INGE 

3 

COMMON  / IPR/  A SOI 23,34) 

INGE 

4 

MEAL  LENGTH 

INGE 

3 

c 

INGE 

6 

READ  (5,100)  LENGTH, NIOTH 

INGE 

? 

0ETA1-HI0TH/FL OAT (MESH) 

INGE 

a 

DETA2 "LENGTH /FLOAT I NMESH) 

INGE 

9 

c 

INGE 

10 

00  10  M-2.M1 

INGE 

n 

00  10  N"1,N1 

INGE 

12 

¥1<M,N)>FLOAT<M-2)*OE TA1 

INGE 

13 

V2  (M».N  ("FLOAT!  N-  1 )*DE  TA2 

INGE 

14 

Y3(N,N(-0.0 

INGE 

15 

RS0(M,N»-V1(M,N)**2*( V2(M,N) -LENGTH) **2 

INGE 

16 

10 

CONTINUE 

INGE 

IT 

RETURN 

INGE 

IB 

c 

INGE 

19 

100 

FORMAT ( 2E10.4) 

INGE 

20 

6N0 

INGE 

21 

c 


c 


c 


c 


SUBROUTINE  INGEOM 
CYLINDER 

COMMON  (USE  MAIN  I 
REAL  LENGTH 

DATA  DTOU/. I 74S329231994329E-01 / 


READ  < 5 • iOO I LENGTH, RADIUS* THETA 
OETA|-THETA*RAOtUS*OTOR/ELOAT|M£SHI 
0ETA2-LENGTH/FL OAT  INMESH) 

00  10  Ma  2*M  t 
ETAL«EL0ATIM-2) *OtT  A I 
DO  10  N<1,NI 
ETA2*FL0AT(N-1 l*PETA2 


Y1CM,N)bRADIUS*SIN(ETA1/RA0IUS) 

V2(m,ni«eta; 


Y3I  M,N  )*HADIL'S*CCS(  E TA l /MAD) US) 
10  CONTINUE 


ETADl«ErA01*RADllJS*DTOR 
DO  20  |Bl,NSTRN 
ETAGII I ) « c T AC 1 1 | ) *R ADlUStDTOR 
20  CONTINUE 
Rt  turn 


loo  format i )Ei2.6) 
ENU 


• ••ft  i 

INGE  2 
INGE  3 
INGE  A 
INGE  5 
INGE  ft 
INGE  7 
INGE  « 
INGE  9 
INGE  10 
INGE  11 
INGE  12 
INGE  13 
INGE  1ft 
INGE  IS 
INGE  1ft 
INGE  17 
INGE  IB 
INGE  19 
INGE  20 
INGE  21 
INGE  22 
INGE  23 
INGE  2* 
INGE  2S 


r 


1 


SUOftOMIlNE  IMCE ON 

COM  I CM.  MU 
COMMON  IUN  MU  INI 
AOAt  LENGTH 

M>*  OTO«/.174e)2t2M«M}I*f<OW 

XtAOIS.lOOl  LENGTH, MOt.AAOE,  THETA, NASH 
AOAAaATANt( AAUE-AAOI  l/LENCTHl 
SHUMlNUlPti 
CKHMl.O/ISIMir 
COfALt-LENCTH/EAAOE-AAOl I 
El AlF«ftADIOTHCTA*0T0« 

ININASH  .00.  01C0T0  1 
EtA2l*0.0 

(U2F*M0IAC$CALMM0CIIU|IE/IAPI  I 
COt  0 2 

1 C1A2IHIA0I  *C  SCALE 
EC*2F*OAOftOC SCALE 

2 OOfAl«KTAlE/ELOAT<NESM» 

00442*1 CTA2E-VTA2 I » /El  O' H MMC  SH I 
0«Hll*Of TAt/RAOl 
OCNI2*OET*J*SINALE/IUOI 
CHI2l*2TA2l*SlMALF/AA9l 

H||a||| 

IN4THCTA  .LT.  ISO.OICOTO  S 

MMaI»HS/2 

MHl-MH*! 

MQ«MH 

IM2*MN  .00.  M9«2I  NU-U*MM/2 
9 M 10  tfMl 
CM I2«EL0AT EM- 1 IA0CHI 2«CMI 21 
FMMCNI2 

IMNASM  .(V.  01  FINK-EXFICMI2I 
00  10  M-2.NU 
CMU»ELOAT4N-21«OCHI  1 
VllH.NI-RADIMINICMlllOFINK 
Y* IN, M 1 •RAVI «C0T AL FO I * I MR- 1 . 0 | 
V>*N,NI-R«UI*COS<CNlllOF|lu 
10  CONTINUE 

ittTtttll  .LT.  1 iu.u i w I j So 
I092AMM  *L V.  N9«2IC0T0  10 
NH1-NU«1 

IOI20NU  .Ml.  HH«2I  MUl-KU 
r ’’O  M-1(N1 
'■9  M-MOl.NM 
NIaMHa2-N 
V14M.NI-VKWl.NI 
V?«M,Nt-V2INR,jn 
20  VSIN,NI«VltNK,Mt 
90  DO  AO  N-l.Nl 
DO  AO  M-NNI.Nt 
MM*MS«2-N 
VI4M,Nt-Vl(NR.ft) 

V2ININI-V2«NR'N) 

AO  VSIH.NI  — 9KNV.MI 

C1£*AO*CSCALF*RAOI 

E1A01»ETAQ1*RA0I>*0T0R 

IMNASM  .EO.  1IETA02-CSCRAO«ALOC(  1.*ETA02/CSCMQ> 
DO  AS  l-l.NSTAN 


1 

1 MCE 

2 

INC* 

1 

INCE 

A 

INGE 

9 

IMCE 

6 

IMCE 

T 

IOCE 

• 

IMCE 

A 

IMCE 

10 

IMCE 

II 

IMCE 

12 

IMCE 

1 ) 

IMCE 

1A 

IMCE 

19 

IMCE 

1A 

IMCE 

17 

IMCE 

it 

IMCE 

19 

INC E 

20 

IMCE 

21 

IMCE 

22 

IMCE 

29 

IMCE 

2A 

IMCE 

29 

IMCE 

2A 

IMCE 

27 

IMCE 

20 

IMCE 

29 

INC  E 

10 

IMCE 

91 

IMCE 

12 

IMCE 

91 

IMCE 

9A 

IMCE 

19 

IMCE 

10 

IMCE 

17 

IMCE 

10 

IMCE 

99 

IMCE 

AO 

IMCE 

A 1 

(MCE 

*2 

IMCE 

A 1 

IMCE 

aa 

IMCE 

AS 

IMCE 

AO 

IMCE 

07 

IMCE 

At 

IMCE 

09 

IMCE 

90 

IMCE 

91 

IMCE 

92 

IMCE 

91 

IMCE 

5A 

IMCE 

ss 

IMCE 

so 

IMCE 

97 

IMCE 

St 

IMCE 

99 

IMCE 

00 
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II *CI I I I •( T AC1  I )*AAOt*OfOA 

IA1NA1*  I If  | At; I ■ | •CSCAA3*A4  Oct  I.  *1  IM.il  | | /(.1CAA0I 

41  CtNfllM 
10  A*  TUAN 

100  FO*»AI< 4t 10.4.1 1 ) 

(1C 


I MCI  A 1 
I MCI  W 
I MCI  41 
I MCI  44 
1 MCI  4) 
t MCI  A4 
I MCI  4 T 


